File Coverage

blib/lib/Heap/Simple/Scalar.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::Scalar;
2             $VERSION = "0.02";
3 2     2   10 use strict;
  2         4  
  2         193  
4              
5             sub _KEY {
6 614     614   12084 return $_[1];
7             }
8              
9             sub _elements {
10 211     211   980 return $_[2]; # Just the name
11             }
12              
13             sub elements {
14 232     232 0 13492 return "Scalar";
15             }
16              
17             1;