File Coverage

blib/lib/Heap/Simple/NumberReverse.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::NumberReverse;
2             $VERSION = "0.03";
3 4     4   24 use strict;
  4         7  
  4         604  
4              
5             sub _SMALLER {
6 1073     1073   10468 return "$_[1] > $_[2]";
7             }
8              
9             sub _INF {
10 159     159   1099 return -(9**9**9);
11             }
12              
13             sub order {
14 243     243 0 30104 return ">";
15             }
16              
17             1;