File Coverage

blib/lib/Devel/StashHook.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	2	2	100.0
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	35	38	92.1

package Devel::StashHook;

use 5.010000;

use warnings;
use strict;
use Variable::Magic qw(wizard cast);

our $VERSION = '0.01_002';
my $packages;

sub import {
    my ($class, $info) = @_;

    for my $package (keys %$info){
        $packages->{$package} = $info->{$package};

        my $wizard = wizard(
            'store' => sub {
                my ($stash,undef,$name) = @_;
                if(exists $stash->{$name}){
                    $packages->{$package}->({ name => $name, action => 'modify' });
                } else {
                    $packages->{$package}->({ name => $name, action => 'add' });
                }
            },
            'delete' => sub {
                my ($stash,undef,$name) = @_;
                $packages->{$package}->({ name => $name, action => 'remove' });
            },
        );

        {
            no strict 'refs';
            cast(%{"${package}::"}, $wizard);
        }
    }
}

1;
__END__