File Coverage

blib/lib/DBIx/QuickORM/Role/Source.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 4 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 25 64.0


line stmt bran cond sub pod time code
1             package DBIx::QuickORM::Role::Source;
2 24     24   16870 use strict;
  24         70  
  24         1184  
3 24     24   141 use warnings;
  24         48  
  24         2193  
4              
5             our $VERSION = '0.000019';
6              
7 24     24   180 use Carp qw/croak confess/;
  24         53  
  24         1624  
8              
9 24     24   147 use Role::Tiny;
  24         66  
  24         171  
10              
11             requires qw{
12             source_db_moniker
13             source_orm_name
14              
15             row_class
16             primary_key
17              
18             field_type
19             field_affinity
20              
21             has_field
22              
23             fields_to_fetch
24             fields_to_omit
25             fields_list_all
26             };
27              
28             sub cachable {
29 0 0   0 0   my $pk = $_[0]->primary_key or return 0;
30 0 0         return 1 if @$pk;
31 0           return 0;
32             }
33              
34             1;