NAME

Package::Checkpoint::Guard - Checkpoint the scalar, array and hash values in a package for automatic restoration

VERSION

version 0.01

SYNOPSIS

package Foo::Bar {
  our $foo = 1;
  our @bar = (1,2,3);
  our %baz = ( a => 1 );
}

{
  my $guard = Package::Checkpoint::Guard->new('Foo::Bar');

  # modify Foo::Bar
  $Foo::Bar::foo++;
  push @Foo::Bar::bar, 4;
  $Foo::Bar::baz{b} = 2;
}
# $guard falls out of scope...
# [$@%]Foo::Bar::{foo,bar,baz} are now back to their original values

DESCRIPTION

This class works exactly like Package::Checkpoint, except that it will automatically restore when it falls out of scope.

BASE CLASS

Package::Checkpoint

CAVEATS

Doesn't checkpoint or even consider a whole host of values that might be of interest, like subroutines or file handles.

SEE ALSO

Package::Stash

AUTHOR

Graham Ollis <plicease@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2021 by Graham Ollis.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.