File Coverage

blib/lib/Tree/Persist/File.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod			n/a
total	16	30	53.3

package Tree::Persist::File;

use strict;
use warnings;

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

use Scalar::Util qw( blessed );

our $VERSION = '1.11';

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

sub _init
{
	my($class)         = shift;
	my($opts)          = @_;
	my($self)          = $class -> SUPER::_init( $opts );
	$self->{_filename} = $opts->{filename};

	return $self;

} # End of _init.

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

sub _create
{
	my($self) = shift;

	open my $fh, '>', $self->{_filename}
		or die "Cannot open '$self->{_filename}' for writing: $!\n";

	print $fh $self->_build_string( $self->{_tree} );

	close $fh;

	return $self;

} # End of _create.

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

*_commit = \&_create;

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

1;

__END__