File Coverage

blib/lib/Class/Implements.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	4	4	100.0
pod			n/a
total	28	31	90.3

package Class::Implements;
use strict;
use warnings;
our $VERSION = 0.01;

my %liars;

use Hook::Queue 'UNIVERSAL::isa' => sub {
    my $ref = shift;
    my $what = shift;
    return 1 if grep { $_ eq $what } @{ $liars{ ref $ref || $ref } || [] };
    return Hook::Queue->defer();
};

sub import {
    my $self = shift;
    my $what = shift;
    my $liar = caller;
    push @{ $liars{ $liar } }, $what;
}

1;

__END__