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   706 use 5.006;
  1         4  
5 1     1   5 use strict;
  1         2  
  1         20  
6 1     1   12 use warnings;
  1         2  
  1         83  
7              
8             require Exporter;
9              
10             our @ISA = qw(Exporter);
11              
12             #our @EXPORT = qw(dbi_connect dbi_prepare);
13             our @EXPORT = qw(dbi_prepare);
14              
15             our $VERSION = '0.011';
16              
17 1     1   545 use Tao::DBI::db;
  1         2  
  1         42  
18 1     1   4 use Tao::DBI::st;
  1         2  
  1         123  
19              
20             sub dbi_connect {
21 0     0 0   __PACKAGE__->connect(@_);
22             }
23              
24             sub connect {
25 0     0 1   shift;
26 0           return new Tao::DBI::db(@_);
27             }
28              
29             sub dbi_prepare {
30 0     0 1   my $sql = shift;
31 0           my $args = shift;
32 0           return new Tao::DBI::st( { sql => $sql, %$args } );
33             }
34              
35             1;
36              
37             __END__