File Coverage

blib/lib/MojoMojo/Schema/Result/RolePrivilege.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package MojoMojo::Schema::Result::RolePrivilege;
2              
3 40     40   56120 use strict;
  40         103  
  40         1133  
4 40     40   200 use warnings;
  40         94  
  40         1121  
5              
6 40     40   210 use parent qw/MojoMojo::Schema::Base::Result/;
  40         87  
  40         264  
7              
8             __PACKAGE__->load_components( "Core" );
9             __PACKAGE__->table("role_privilege");
10             __PACKAGE__->add_columns(
11             "page", { data_type => "INTEGER", is_nullable => 0, size => undef },
12             "role", { data_type => "INTEGER", is_nullable => 0, size => undef },
13             "privilege", { data_type => "VARCHAR", is_nullable => 0, size => 20 },
14             );
15             __PACKAGE__->set_primary_key( "page", "role", "privilege" );
16             __PACKAGE__->belongs_to( "page", "MojoMojo::Schema::Result::Page", { id => "page" } );
17             __PACKAGE__->belongs_to( "role", "MojoMojo::Schema::Result::Role", { id => "role" } );
18              
19             =head1 NAME
20              
21             MojoMojo::Schema::Result::RolePrivilege - store role privileges
22              
23             =head1 AUTHOR
24              
25             Marcus Ramberg <mramberg@cpan.org>
26              
27             =head1 LICENSE
28              
29             This library is free software. You can redistribute it and/or modify
30             it under the same terms as Perl itself.
31              
32             =cut
33              
34              
35             1;