Branch Coverage

blib/lib/Net/Radius/Dictionary.pm
Criterion Covered Total %
branch 50 58 86.2


line true false branch
37 1552 13986 if $l =~ /^\#/
38 1774 12212 unless my(@l) = split(/\s+/, $l, 0)
40 70 12142 if ($l[0] =~ /^vendor$/i) { }
3228 8914 elsif ($l[0] =~ /^attribute$/i) { }
6415 2499 elsif ($l[0] =~ /^value$/i) { }
528 1971 elsif ($l[0] =~ /^vendorattr$/i) { }
1961 10 elsif ($l[0] =~ /^vendorvalue$/i) { }
10 0 elsif (lc $l[0] eq 'packet') { }
42 70 0 if (defined $l[1] and defined $l[2] and $l[2] =~ /^[xo0-9]+$/) { }
44 0 70 if (substr($l[2], 0, 1) eq '0')
58 1215 2013 if (@l == 4) { }
1980 33 elsif (@l == 5) { }
65 264 1716 if (substr($l[2], 0, 1) eq '0')
70 1980 0 if (exists $$self{'vendors'}{$l[4]}) { }
0 0 elsif ($l[4] =~ /^\d+$/) { }
89 1634 4781 if (exists $$self{'attr'}{$l[1]}) { }
96 4688 47 if (defined $$self{'vsattr'}{$v}{$l[1]})
109 518 10 if (substr($l[3], 0, 1) eq '0')
114 259 269 if (exists $$self{'vendors'}{$l[1]}) { }
269 0 elsif ($l[1] =~ /^\d+$/) { }
132 48 1913 if (substr($l[4], 0, 1) eq '0')
138 979 982 if (exists $$self{'vendors'}{$l[1]}) { }
982 0 elsif ($l[1] =~ /^\d+$/) { }
251 7 1 unless $_[0]{'packet'}
252 19 1 unless $_[0]{'rpacket'}
258 4 4 unless wantarray
260 2 2 $ok ? :
266 4 4 unless wantarray
268 2 2 $ok ? :