Branch Coverage

blib/lib/Statistics/Basic/ComputedVector.pm
Criterion Covered Total %
branch 12 20 60.0


line true false branch
16 0 13 unless my $that = eval { do { 'Statistics::Basic::Vector'->new(@_) } }
17 0 13 unless defined $that
31 0 0 if $Statistics::Basic::DEBUG >= 3
39 0 12 unless ref $cref eq 'CODE'
55 15 3 if (ref(my $c = $$this{'computer'}) eq 'CODE') { }
62 0 18 if $Statistics::Basic::DEBUG
73 0 33 if $Statistics::Basic::DEBUG
82 8 10 if $$this{'recalc_needed'}
95 10 25 if $$this{'recalc_needed'}
109 0 12 if $$this{'recalc_needed'}