File Coverage

blib/lib/Heap/Fibonacci/Fast.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	2	2	100.0
pod	1	1	100.0
total	22	22	100.0

package Heap::Fibonacci::Fast;

our $VERSION = '0.0101';

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub new{
	my $class = shift;
	my $type = shift;

	if (
		!defined $type
			||
		$type eq 'min'
	){
		return $class->new_minheap();

	}elsif ($type eq 'max'){
		return $class->new_maxheap();

	}elsif ($type eq 'code'){
		return $class->new_codeheap(shift);

	}else{
		die "Unknown type supplied: $type";
	}
}


1;