File Coverage

blib/lib/Ado/Model/Sessions.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 6 6 100.0
total 37 37 100.0


line stmt bran cond sub pod time code
1             package Ado::Model::Sessions; #A table/row class
2 24     24   11839 use 5.010001;
  24         68  
3 24     24   109 use strict;
  24         35  
  24         533  
4 24     24   97 use warnings;
  24         43  
  24         564  
5 24     24   101 use utf8;
  24         36  
  24         107  
6 24     24   1027 use parent qw(Ado::Model);
  24         288  
  24         114  
7              
8 12     12 1 465 sub is_base_class { return 0 }
9             my $TABLE_NAME = 'sessions';
10              
11 99     99 1 6813 sub TABLE { return $TABLE_NAME }
12 102     102 1 1775 sub PRIMARY_KEY { return 'id' }
13             my $COLUMNS = ['id', 'tstamp', 'sessiondata'];
14              
15 36     36 1 905 sub COLUMNS { return $COLUMNS }
16             my $ALIASES = {};
17              
18 81     81 1 4041 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             'id' => {
30             'required' => 1,
31             'defined' => 1,
32              
33             'allow' => qr/(?^x:^.{1,40}$)/
34             }
35             };
36              
37 141     141 1 3544 sub CHECKS { return $CHECKS }
38              
39             __PACKAGE__->QUOTE_IDENTIFIERS(0);
40              
41             #__PACKAGE__->BUILD;#build accessors during load
42              
43             1;
44              
45             __END__