Branch Coverage

blib/lib/Data/Validate/DNS/NAPTR/Regexp.pm
Criterion Covered Total %
branch 41 42 97.6


line true false branch
29 24 24 if ($where) { }
39 48 24 if ($self) { }
54 48 48 if (defined $self and not ref $self) { }
64 0 96 unless (defined $string)
68 4 92 if ($string =~ /\n/)
77 16 76 unless (defined $string)
82 2 74 if (length $string == 0)
86 4 70 if ($string =~ /\0/)
96 10 60 if ($delim =~ /^[0-9\\i\0]$/)
110 4 56 unless ($string =~ /^ (.*) (?
124 2 162 if ($f =~ /(?
140 14 4 if ($f eq 'i') { }
149 2 48 if ($brefs{'0'})
161 2 46 if ($nsubs < $highest)
182 2 6066 if ($before =~ /"/)
191 82 5984 if ($2)
194 2 80 unless (defined $seq)
201 44 36 if (not $seq =~ /\d/) { }
4 32 elsif (not $seq =~ /\d\d\d/) { }
4 28 elsif ($seq > 255) { }
218 4 76 if (length $ret > 255)