File Coverage

blib/lib/MojoMojo/Schema/Result/RoleMember.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::RoleMember;
2              
3 40     40   18000 use strict;
  40         102  
  40         1191  
4 40     40   203 use warnings;
  40         88  
  40         1017  
5              
6 40     40   207 use parent qw/MojoMojo::Schema::Base::Result/;
  40         86  
  40         248  
7              
8             __PACKAGE__->load_components( "Core" );
9             __PACKAGE__->table("role_member");
10             __PACKAGE__->add_columns(
11             "role", { data_type => "INTEGER", is_nullable => 0, size => undef },
12             "person", { data_type => "INTEGER", is_nullable => 0, size => undef },
13             "admin", { data_type => "INTEGER", is_nullable => 0, size => undef, default => 0 },
14             );
15             __PACKAGE__->set_primary_key( "role", "person" );
16             __PACKAGE__->belongs_to( "role", "MojoMojo::Schema::Result::Role", { id => "role" } );
17             __PACKAGE__->belongs_to( "person", "MojoMojo::Schema::Result::Person", { id => "person" } );
18              
19             =head1 NAME
20              
21             MojoMojo::Schema::Result::RoleMember - store members of roles
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;