File Coverage

blib/lib/Graph/MSTHeapElem.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition 2 4 50.0
subroutine 6 6 100.0
pod 0 4 0.0
total 22 29 75.8


line stmt bran cond sub pod time code
1             package Graph::MSTHeapElem;
2              
3 2     2   14 use strict;
  2         3  
  2         65  
4 2     2   10 use warnings;
  2         4  
  2         344  
5              
6             sub new {
7 3070     3070 0 5284 my $class = shift;
8 3070         13611 bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
9             }
10              
11             sub heap {
12 6140     6140 0 64426 my $self = shift;
13 6140 50       14056 @_ ? ($self->{heap} = shift) : $self->{heap};
14             }
15              
16             sub cmp {
17 22732   50 22732 0 659392 ($_[0]->{ w } || 0) <=> ($_[1]->{ w } || 0);
      50        
18             }
19              
20             sub val {
21 3070     3070 0 3947 @{ $_[0] }{ qw(u v w) };
  3070         9934  
22             }
23              
24             1;