Branch Coverage

web/cgi-bin/yatt.lib/YATT/ArgTypes.pm
Criterion Covered Total %
branch 18 26 69.2


line true false branch
29 21 12 if (ref $arglist->[0]) { }
12 0 elsif (my($flag, $key) = $arglist->[0] =~ /^([\-:])(\w+)/) { }
33 3 9 $flag eq ':' ? :
50 21 0 if $self->{'cf_type_name'}
59 9 18 if (ref $desc->[0] eq 'SCALAR') { }
18 0 elsif (my($flag, $key) = $desc->[0] =~ /^([\-:])(\w+)/) { }
62 9 0 if (not ref $value) { }
0 0 elsif (ref $value eq 'CODE') { }
74 0 18 $flag eq ':' ? :
75 3 15 if ($$fields{"cf_$key"}) { }
78 0 15 unless my $sub = $self->can("option_$key")
109 18 3 unless defined $key
115 3 6 ref $value ? :