File Coverage

blib/lib/Tree/Persist.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	37	39	94.8

package Tree::Persist;

use strict;
use warnings;

use Module::Runtime;

our $VERSION = '1.11';

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

sub connect
{
	my($class) = shift;
	my($obj)   = $class -> _instantiate( @_ );

	$obj -> _reload;

	return $obj;

} # End of connect.

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

sub create_datastore
{
	my($class) = shift;
	my($obj)   = $class -> _instantiate( @_ );

	$obj -> _create;

	return $obj;

} # End of create_datastore.

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

sub _instantiate
{
	my($self) = shift;
	my($opts)  = @_;
	my($class) = delete $$opts{class};
	my($type)  = delete $$opts{type};

	if (! $class)
	{
		$type  = 'File' if (! $type);
		$class = $type eq 'File' ? 'Tree::Persist::File::XML' : 'Tree::Persist::DB::SelfReferential';
	}

	return Module::Runtime::use_module($class)->new( $opts );

} # End of _instantiate.

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

1;

__END__