File Coverage

blib/lib/Tie/DataDumper.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	44	47	93.6

#
# $Id: DataDumper.pm,v 0.3 2006/03/22 22:10:28 dankogai Exp $
#
package Tie::DataDumper;
use strict;
use warnings;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.3 $ =~ /(\d+)/g;
use base 'Tie::SaveLater';
use Carp;
use Data::Dumper;
__PACKAGE__->make_subclasses;
sub load{
    my $class = shift;
    my $filename = shift;
    open my $fh, "<:raw", $filename or croak "$filename: $!";
    local $/; # slurp;
    my $str = <$fh>;
    close $fh;
    our $VAR1; # for data::dumper;
    my $result = eval($str);
    $@ and croak $@;
    undef $VAR1;
    return $result;
}
sub save{
    my $self = shift;
    my $filename = $self->filename;
    open my $fh, ">:raw", $filename or croak "$filename: $!";
    print $fh Dumper($self);
    close $fh;
    return 1;
}
1;
__END__