File Coverage

blib/lib/Tie/Storable.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	6	8	75.0
condition			n/a
subroutine	12	12	100.0
pod	2	2	100.0
total	53	55	96.3

#
# $Id: Storable.pm,v 0.05 2020/08/05 18:26:03 dankogai Exp dankogai $
#
package Tie::Storable;
use strict;
use warnings;
use base 'Tie::SaveLater';
our $VERSION = sprintf "%d.%02d", q$Revision: 0.05 $ =~ /(\d+)/g;
use Storable ();
use Carp;
__PACKAGE__->make_subclasses;
sub load{ Storable::retrieve($_[1]) };
sub save{ Storable::nstore($_[0], $_[0]->filename) };

####
package Tie::Storable::More;
use base 'Tie::SaveLater';
use Carp;
__PACKAGE__->make_subclasses;

sub load{
    my ($class, $filename) = @_;
    return Storable::retrieve($filename)
};

sub save{
    my $self = shift;
    if (my @options = $self->options){
	return 1 unless ($options[0] & 0222); # do nothing if read-only
    }
    return Storable::nstore($self, $self->filename)
};

sub STORE{
    my $self = shift;
    if (my @options = $self->options){
	croak "This variable is read-only!" unless ($options[0] & 0222);
    }
    return $self->super_super('STORE' => @_);
}

1;
__END__