File Coverage

blib/lib/Ado/Model/SessionsOld.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::SessionsOld; #A table/row class
2 23     23   8395 use 5.010001;
  23         71  
3 23     23   114 use strict;
  23         45  
  23         427  
4 23     23   102 use warnings;
  23         40  
  23         478  
5 23     23   95 use utf8;
  23         44  
  23         92  
6 23     23   547 use parent qw(Ado::Model);
  23         48  
  23         93  
7              
8 0     0 1   sub is_base_class { return 0 }
9             my $TABLE_NAME = 'sessions_old';
10              
11 0     0 1   sub TABLE { return $TABLE_NAME }
12 0     0 1   sub PRIMARY_KEY { return 'id' }
13             my $COLUMNS = ['id', 'user_id', 'tstamp', 'sessiondata'];
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             'sessiondata' => {
21             'required' => 1,
22             'defined' => 1
23             },
24             'tstamp' => {
25             'required' => 1,
26             'defined' => 1,
27             'allow' => qr/(?^x:^-?\d{1,11}$)/
28             },
29             'user_id' => {'allow' => qr/(?^x:^-?\d{1,11}$)/},
30             'id' => {'allow' => qr/(?^x:^.{1,40}$)/}
31             };
32              
33 0     0 1   sub CHECKS { return $CHECKS }
34              
35             __PACKAGE__->QUOTE_IDENTIFIERS(0);
36              
37             #__PACKAGE__->BUILD;#build accessors during load
38              
39             1;
40              
41             __END__