Tie-SaveLater
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Tie/SaveLater.pm view on Meta::CPAN
my $filename = shift or croak "filename missing";
my $self;
if (-f $filename){
$self = $class->load($filename) or croak "$filename : $!";
croak "existing $filename does not store $type"
if $types2check{$type} and !$self->isa($type);
}else{
$self =
{ HASH => {}, ARRAY => [], SCALAR => \do{ my $scalar }}->{$type};
}
bless $self => $class.'::'.$type;
$DEBUG and carp sprintf("tied $filename => 0x%x", 0+$self);
@_ and $self->options(@_);
$self->_regobj($filename);
$self;
}
sub UNTIE{
my $self = shift;
$self->save;
$DEBUG and carp "untied ", $self->filename;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.855 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )