File Coverage

blib/lib/Tree/Persist/DB.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Tree::Persist::DB;
2              
3 5     5   1907 use strict;
  5         5  
  5         114  
4 5     5   12 use warnings;
  5         5  
  5         104  
5              
6 5     5   14 use base qw( Tree::Persist::Base );
  5         6  
  5         1542  
7              
8             our $VERSION = '1.11';
9              
10             # ----------------------------------------------
11              
12             sub _init
13             {
14 10     10   11 my($class) = shift;
15 10         10 my($opts) = @_;
16 10         27 my($self) = $class -> SUPER::_init( $opts );
17 10         16 $self->{_dbh} = $opts->{dbh};
18 10         11 $self->{_table} = $opts->{table};
19              
20 10         17 return $self;
21              
22             } # End of _init.
23              
24             # ----------------------------------------------
25              
26             1;
27              
28             __END__