File Coverage

blib/lib/Data/Serializer/Persistent.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	8	12	66.6
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	56	60	93.3

package Data::Serializer::Persistent;

use warnings;
use strict;
use vars qw($VERSION @ISA);
use IO::File;

use Carp;

$VERSION = '0.01';

sub _store {
	my $self = (shift);
	my $data = (shift);
	my $file_or_fh = (shift);


	if (ref($file_or_fh)) {
		#it is a file handle so print straight to it
		print $file_or_fh $self->{parent}->serialize($data), "\n";
		#We didn't open the filehandle, so we shouldn't close it.
	} else {
		#it is a file, so open it
		my ($mode,$perm) = @_;
		unless (defined $mode) {
			$mode = O_CREAT|O_WRONLY;
		}
		unless (defined $perm) {
			$perm = 0600;
		}
		my $fh = new IO::File;
		$fh->open($file_or_fh, $mode,$perm) || croak "Cannot write to $file_or_fh: $!";
		print $fh $self->{parent}->serialize($data), "\n";
		$fh->close();
	}
}

sub _retrieve {
	my $self = (shift);
	my $file_or_fh = (shift);
	if (ref($file_or_fh)) {
		#it is a file handle so read straight from it
		my $input = join('', <$file_or_fh>);
		chomp($input);
		return $self->{parent}->deserialize($input);
		#We didn't open the filehandle, so we shouldn't close it.
	} else {
		my $fh = new IO::File;
		$fh->open($file_or_fh, O_RDONLY) ||	croak "Cannot read from $file_or_fh: $!";
		my $input = join('', <$fh>);
		chomp($input);
		$fh->close;
		return $self->{parent}->deserialize($input);
	}
}



1;
__END__