File Coverage

blib/lib/Hash/Spy.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	32	35	91.4

package Hash::Spy;

our $VERSION = '0.01';

use strict;
use warnings;
use 5.010;
use Carp;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(spy_hash);

require XSLoader;
XSLoader::load('Hash::Spy', $VERSION);

my %cb_slot = ( delete => 0,
                store  => 1,
                clear  => 2,
                empty  => 3 );

sub spy_hash (\%@) {
    my $hash = shift;
    my $spy = _hash_get_spy($hash);
    while (@_) {
        my $name = shift;
        my $slot = $cb_slot{$name} //
            croak "bad spy callback '$name'";
        my $cb = shift;
        if (defined $cb) {
            UNIVERSAL::isa($cb, 'CODE')
                    or croak "spy callback '$name' is not a CODE ref";
        }
        $spy->_set_cb($slot, $cb);
    }
    1;
}

1;
__END__