File Coverage

blib/lib/Tao/DBI.pm
Criterion Covered Total %
statement 14 20 70.0
branch n/a
condition n/a
subroutine 5 8 62.5
pod 2 3 66.6
total 21 31 67.7


line stmt bran cond sub pod time code
1              
2             package Tao::DBI;
3              
4 1     1   749 use 5.006;
  1         3  
5 1     1   5 use strict;
  1         2  
  1         21  
6 1     1   13 use warnings;
  1         2  
  1         88  
7              
8             require Exporter;
9              
10             our @ISA = qw(Exporter);
11             #our @EXPORT = qw(dbi_connect dbi_prepare);
12             our @EXPORT = qw(dbi_prepare);
13              
14             our $VERSION = '0.01';
15              
16 1     1   510 use Tao::DBI::db;
  1         3  
  1         41  
17 1     1   5 use Tao::DBI::st;
  1         2  
  1         122  
18              
19             sub dbi_connect {
20 0     0 0   __PACKAGE__->connect(@_);
21             }
22              
23             sub connect {
24 0     0 1   shift;
25 0           return new Tao::DBI::db(@_);
26             }
27              
28             sub dbi_prepare {
29 0     0 1   my $sql = shift;
30 0           my $args = shift;
31 0           return new Tao::DBI::st({ sql => $sql, %$args });
32             }
33              
34             1;
35              
36             __END__