File Coverage

blib/lib/Bio/Phylo/Util/OptionalInterface.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	22	25	88.0

package Bio::Phylo::Util::OptionalInterface;
use strict;
use Bio::Phylo::Util::CONSTANT 'looks_like_class';
use Bio::Phylo::Util::Logger;
my $logger = Bio::Phylo::Util::Logger->new;

sub import {
    my $class = shift;
    my ($caller) = caller;
    for my $iface (@_) {
        eval { looks_like_class $iface };
        if ($@) {
            $logger->info("Couldn't load optional interface $iface");
            undef($@);
        }
        else {
            eval "push \@${caller}::ISA, '$iface'";
            $logger->info("Added interface $iface to $caller");
        }
    }
}
1;
__END__