File Coverage

blib/lib/SQL/OOP.pm
Criterion Covered Total %
statement 17 21 80.9
branch n/a
condition n/a
subroutine 6 8 75.0
pod 3 3 100.0
total 26 32 81.2


line stmt bran cond sub pod time code
1             package SQL::OOP;
2 19     19   1570753 use strict;
  19         49  
  19         670  
3 19     19   103 use warnings;
  19         34  
  19         582  
4 19     19   107 use Scalar::Util qw(blessed);
  19         38  
  19         2647  
5 19     19   10493 use SQL::OOP::Base;
  19         46  
  19         541  
6 19     19   476 use 5.005;
  19         213  
  19         2867  
7             our $VERSION = '0.21';
8              
9             sub new {
10 2     2 1 10 my $class = shift;
11 2         10 return SQL::OOP::Base->new(@_);
12             }
13              
14             sub quote_char {
15 0     0 1   my $class = shift;
16 0           return SQL::OOP::Base->quote_char(@_);
17             }
18              
19             sub escape_code_ref {
20 0     0 1   my $class = shift;
21 0           return SQL::OOP::Base->escape_code_ref(@_);
22             }
23              
24             1;
25              
26             __END__