File Coverage

blib/lib/DBI/Easy/Vendor/Base.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 3 0.0
total 14 19 73.6


line stmt bran cond sub pod time code
1             package DBI::Easy::Vendor::Base;
2              
3 5     5   6113 use Class::Easy;
  5         12  
  5         37  
4              
5             sub vendor_schema {
6 17     17 0 49 return;
7             }
8              
9 17     17   62 sub _init_vendor {
10              
11             }
12              
13             sub _datetime_format {
14 0     0   0 '%Y-%m-%d %H:%M:%S';
15             }
16              
17             sub quote_identifier {
18 17     17 0 37 my $class = shift;
19            
20 17         61 return $class->dbh->quote_identifier (@_);
21             }
22              
23             sub quote {
24 8     8 0 1750 my $class = shift;
25            
26 8         36 return $class->dbh->quote (@_);
27             }
28              
29              
30             1;
31