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

package Tree::Persist::DB;

use strict;
use warnings;

use base qw( Tree::Persist::Base );

our $VERSION = '1.12';

# ----------------------------------------------

sub _init
{
	my($class)      = shift;
	my($opts)       = @_;
	my($self)       = $class -> SUPER::_init( $opts );
	$self->{_dbh}   = $opts->{dbh};
	$self->{_table} = $opts->{table};

	return $self;

} # End of _init.

# ----------------------------------------------

1;

__END__