File Coverage

blib/lib/Value/Canary.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition	1	2	50.0
subroutine	5	6	83.3
pod	1	1	100.0
total	22	26	84.6

package Value::Canary;
our $VERSION = '0.01';


# ABSTRACT: Callbacks for value destruction

use Carp 'cluck';
use Variable::Magic qw/wizard cast/;
use namespace::clean;

use Sub::Exporter -setup => {
    exports => ['canary'],
    groups  => { default => ['canary'] },
};


my $wiz = wizard data => sub { $_[1] },
                 free => sub { $_[1]->($_[0]) };


sub canary {
    my $cb = $_[1];
    $cb ||= sub { cluck "${ $_[0] } destroyed" };
    cast $_[0], $wiz, $cb;
}


1;

__END__