File Coverage

blib/lib/Heap/Simple/Function.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	6	100.0
condition			n/a
subroutine	9	9	100.0
pod	0	3	0.0
total	33	36	91.6

package Heap::Simple::Function;
$VERSION = "0.04";
use strict;
use Carp;

sub _elements {
    my ($class, $heap, $name, $elements) = @_;
    if (!defined $elements->[1]) {
        $class->isa("Heap::Simple::Wrapper") ||
            croak "missing key function for $elements->[0]";
        return $name, "0";
    }
    $heap->[0]{index} = $elements->[1];
    return $name;
}

sub _ELEMENTS_PREPARE {
    return "my \$el_fun = \$heap->[0]{index};";
}

sub _KEY {
    return "\$el_fun->($_[1])";
}

sub _QUICK_KEY {
    return "\$heap->[0]{index}->($_[1])";
}

sub key_function {
    return shift->[0]{index};
}

sub key {
    return $_[0][0]{index}->($_[1]);
}

sub elements {
    return wantarray ? (Function => shift->[0]{index}) : "Function";
}

1;