File Coverage

blib/lib/Heap/Simple/Number.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package Heap::Simple::Number;
2             $VERSION = "0.03";
3 2     2   10 use strict;
  2         4  
  2         280  
4              
5             sub _SMALLER {
6 1097     1097   10821 return "$_[1] < $_[2]";
7             }
8              
9             sub _INF {
10 683     683   3586 return 9**9**9;
11             }
12              
13             sub order {
14 355     355 0 32154 return "<";
15             }
16              
17             1;