File Coverage

blib/lib/Ado/Model/Domains.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::Domains; #A table/row class
2 23     23   52046 use 5.010001;
  23         77  
3 23     23   139 use strict;
  23         40  
  23         454  
4 23     23   97 use warnings;
  23         40  
  23         526  
5 23     23   99 use utf8;
  23         38  
  23         110  
6 23     23   558 use parent qw(Ado::Model);
  23         45  
  23         216  
7              
8 0     0 1   sub is_base_class { return 0 }
9             my $TABLE_NAME = 'domains';
10              
11 0     0 1   sub TABLE { return $TABLE_NAME }
12 0     0 1   sub PRIMARY_KEY { return 'id' }
13             my $COLUMNS = ['id', 'domain', 'site_name', 'description', 'owner_id', 'group_id', 'permissions',
14             'published'];
15              
16 0     0 1   sub COLUMNS { return $COLUMNS }
17             my $ALIASES = {};
18              
19 0     0 1   sub ALIASES { return $ALIASES }
20             my $CHECKS = {
21             'permissions' => {
22             'required' => 1,
23             'defined' => 1,
24             'allow' => qr/(?^x:^.{1,10}$)/,
25             'default' => '-rwxr-xr-x'
26             },
27             'description' => {
28             'required' => 1,
29             'defined' => 1,
30             'allow' => qr/(?^x:^.{1,255}$)/,
31             'default' => ''
32             },
33             'published' => {
34             'required' => 1,
35             'defined' => 1,
36             'allow' => qr/(?^x:^-?\d{1,1}$)/
37             },
38             'domain' => {
39             'required' => 1,
40             'defined' => 1,
41             'allow' => qr/(?^x:^.{1,63}$)/
42             },
43             'group_id' => {'allow' => qr/(?^x:^-?\d{1,}$)/},
44             'id' => {
45             'required' => 1,
46             'defined' => 1,
47             'allow' => qr/(?^x:^-?\d{1,}$)/
48             },
49             'owner_id' => {'allow' => qr/(?^x:^-?\d{1,}$)/},
50             'site_name' => {
51             'required' => 1,
52             'defined' => 1,
53             'allow' => qr/(?^x:^.{1,63}$)/
54             }
55             };
56              
57 0     0 1   sub CHECKS { return $CHECKS }
58              
59             __PACKAGE__->QUOTE_IDENTIFIERS(0);
60              
61             #__PACKAGE__->BUILD;#build accessors during load
62              
63             1;
64              
65             __END__