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   7637 use 5.010001;
  24         73  
3 24     24   114 use strict;
  24         40  
  24         447  
4 24     24   97 use warnings;
  24         50  
  24         514  
5 24     24   102 use utf8;
  24         40  
  24         103  
6 24     24   496 use parent qw(Ado::Model);
  24         46  
  24         102  
7              
8 12     12 1 407 sub is_base_class { return 0 }
9             my $TABLE_NAME = 'sessions';
10              
11 99     99 1 7006 sub TABLE { return $TABLE_NAME }
12 102     102 1 1655 sub PRIMARY_KEY { return 'id' }
13             my $COLUMNS = ['id', 'tstamp', 'sessiondata'];
14              
15 36     36 1 875 sub COLUMNS { return $COLUMNS }
16             my $ALIASES = {};
17              
18 81     81 1 3844 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 2763 sub CHECKS { return $CHECKS }
38              
39             __PACKAGE__->QUOTE_IDENTIFIERS(0);
40              
41             #__PACKAGE__->BUILD;#build accessors during load
42              
43             1;
44              
45             __END__