File Coverage

lib/Heap.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package Heap;
2              
3             # heap is mainly here as documentation for the common heap interface.
4             # It defaults to Heap::Fibonacci.
5              
6 2     2   4829 use strict;
  2         5  
  2         73  
7 2     2   11 use vars qw($VERSION);
  2         3  
  2         179  
8              
9             $VERSION = '0.80';
10              
11             sub new {
12 2     2   655 use Heap::Fibonacci;
  2         5  
  2         103  
13              
14 0     0 1   return &Heap::Fibonacci::new;
15             }
16              
17             1;
18             __END__