File Coverage

blib/lib/Heap/Simple/Any.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	18	19	94.7

package Heap::Simple::Any;
require Heap::Simple::Wrapper;
require Heap::Simple::Function;
@ISA = qw(Heap::Simple::Wrapper Heap::Simple::Function);
$VERSION = "0.03";
use strict;

sub _REAL_KEY {
    my $heap = shift;
    return defined $heap->[0]{index} ?
        $heap->Heap::Simple::Function::_KEY(@_) :
        qq(Carp::croak("Element type 'Any' without key code"));
}

sub _REAL_ELEMENTS_PREPARE {
    return shift->Heap::Simple::Function::_ELEMENTS_PREPARE(@_);
}

sub elements {
    return wantarray && exists $_[0][0]{index} ? (Any => shift->[0]{index}) : "Any";
}

1;