File Coverage

blib/lib/Ado/Model/UserGroup.pm
Criterion Covered Total %
statement 14 20 70.0
branch n/a
condition n/a
subroutine 5 11 45.4
pod 6 6 100.0
total 25 37 67.5


line stmt bran cond sub pod time code
1             package Ado::Model::UserGroup; #A table/row class
2 23     23   8818 use 5.010001;
  23         72  
3 23     23   106 use strict;
  23         39  
  23         389  
4 23     23   91 use warnings;
  23         37  
  23         456  
5 23     23   87 use utf8;
  23         43  
  23         95  
6 23     23   501 use parent qw(Ado::Model);
  23         43  
  23         87  
7              
8 0     0 1   sub is_base_class { return 0 }
9             my $TABLE_NAME = 'user_group';
10              
11 0     0 1   sub TABLE { return $TABLE_NAME }
12 0     0 1   sub PRIMARY_KEY { return 'user_id' }
13             my $COLUMNS = ['user_id', 'group_id'];
14              
15 0     0 1   sub COLUMNS { return $COLUMNS }
16             my $ALIASES = {};
17              
18 0     0 1   sub ALIASES { return $ALIASES }
19             my $CHECKS = {
20             'group_id' => {'allow' => qr/(?^x:^-?\d{1,}$)/},
21             'user_id' => {'allow' => qr/(?^x:^-?\d{1,}$)/}
22             };
23              
24 0     0 1   sub CHECKS { return $CHECKS }
25              
26             __PACKAGE__->QUOTE_IDENTIFIERS(0);
27              
28             #__PACKAGE__->BUILD;#build accessors during load
29              
30             1;
31              
32             __END__