File Coverage

blib/lib/Aion/Meta/RequiresAnyFunction.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	3	3	100.0
total	24	26	92.3

package Aion::Meta::RequiresAnyFunction;

use common::sense;

use Aion::Meta::Util qw//;

Aion::Meta::Util::create_getters(qw/pkg name/);

sub new {
    my $cls = shift;
    bless {@_}, ref $cls || $cls;
}

sub compare {
    my ($self, $other) = @_;

   	die "Requires ${\ $self->stringify}" unless ref $other eq 'CODE';
}

sub stringify {
	my ($self) = @_;

   	return "$self->{name} of $self->{pkg}";
}

1;

__END__