File Coverage

blib/lib/Heap/Simple.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Heap::Simple;
use Carp;
use strict;

# Switch selecting XS or pure perl
use vars qw($VERSION @ISA @implementors);
$VERSION = "0.13";

unless (@ISA) {
    @implementors = qw(Heap::Simple::XS(0.10) Heap::Simple::Perl(0.13))
        unless @implementors;
    for my $i (@implementors) {
        my $plugin = $i;
        my $version = $plugin =~ s/\((.+)\)\z// ? $1 : undef;
        my $p = "$plugin.pm";
        $p =~ s!::!/!g;
        if (eval { require $p; 1 }) {
            *new = $plugin->can("new") ||
                croak "Package '$plugin' does not support 'new'";
            if (defined $version) {
                if (defined(my $v = $plugin->VERSION)) {
                    if ($v < $version) {
                        carp "Need '$plugin' version $version, found version $v";
                        next;
                    }
                } else {
                    croak "Could not determine the version of '$plugin'";
                }
            }
            @ISA = ($plugin);
            last;
        }
    }
    @ISA || croak "Can't locate ", join(" nor ", @implementors), " in \@INC. This probably means you didn't install any of them. (\@INC contains: @INC)";
}

1;
__END__