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         5  
  2         61  
4 2     2   9 use warnings;
  2         3  
  2         319  
5              
6             sub new {
7 3021     3021 0 4121 my $class = shift;
8 3021         11691 bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
9             }
10              
11             sub heap {
12 6042     6042 0 53440 my $self = shift;
13 6042 50       11792 @_ ? ($self->{heap} = shift) : $self->{heap};
14             }
15              
16             sub cmp {
17 22208   50 22208 0 541374 ($_[0]->{ w } || 0) <=> ($_[1]->{ w } || 0);
      50        
18             }
19              
20             sub val {
21 3021     3021 0 3161 @{ $_[0] }{ qw(u v w) };
  3021         8263  
22             }
23              
24             1;