File Coverage

blib/lib/DBIx/Class/ResultDDL/V1.pm
Criterion Covered Total %
statement 8 10 80.0
branch 1 4 25.0
condition n/a
subroutine 3 4 75.0
pod 2 2 100.0
total 14 20 70.0


line stmt bran cond sub pod time code
1             package DBIx::Class::ResultDDL::V1;
2 6     6   49 use DBIx::Class::ResultDDL -exporter_setup => 1;
  6         14  
  6         95  
3 6     6   1837 use Carp;
  6         14  
  6         1730  
4              
5             # ABSTRACT: Back-compat for version 0 of this module
6              
7              
8             my @V1= qw(
9             table view
10             col
11             null default auto_inc fk
12             integer unsigned tinyint smallint bigint decimal numeric money
13             float float4 float8 double real
14             char varchar nchar nvarchar MAX binary varbinary bit varbit
15             blob tinyblob mediumblob longblob text tinytext mediumtext longtext ntext bytea
16             date datetime timestamp enum bool boolean
17             uuid json jsonb inflate_json array
18             primary_key idx create_index unique sqlt_add_index sqlt_add_constraint
19             rel_one rel_many has_one might_have has_many belongs_to many_to_many
20             ddl_cascade dbic_cascade
21             );
22              
23             our %EXPORT_TAGS;
24             $EXPORT_TAGS{V1}= \@V1;
25             export @V1;
26              
27              
28             *_maybe_timezone= *DBIx::Class::ResultDDL::_maybe_timezone;
29             *_maybe_array= *DBIx::Class::ResultDDL::_maybe_array;
30 3 50   3 1 18 sub datetime { my $tz= &_maybe_timezone; data_type => 'datetime'.&_maybe_array, ($tz? (time_zone => $tz) : ()), @_ }
  3         14  
31 0 0   0 1   sub timestamp { my $tz= &_maybe_timezone; data_type => 'timestamp'.&_maybe_array,($tz? (time_zone => $tz) : ()), @_ }
  0            
32              
33              
34             1;
35              
36             __END__