Branch Coverage

blib/lib/Number/Phone/FR.pm
Criterion Covered Total %
branch 25 46 54.3


line true false branch
25 0 68 unless $class->isa('Number::Phone::FR')
26 68 0 if ($class eq 'Number::Phone::FR') { }
27 8 60 if (@_)
40 0 8 unless eval "require $class; 1"
41 0 8 unless $class->isa('Number::Phone::FR')
46 0 0 unless $pkg =~ /^Number::Phone(?:::|$)/
62 0 744 if defined $class and $class ne 'Number::Phone::FR'
67 494 1648 if defined $impl
131 0 231 if ref $class
135 0 231 unless defined $number
136 0 231 if ref $number
140 0 231 if $num =~ /\A(?:\+|00)((?:[^3]|3[^3]).*)\z/
142 171 60 is_valid($number) ? :
149 0 324 if &blessed($number) and $number->isa('Number::Phone::FR')
171 203 189 if ($class) { }
186 0 180 unless @matches
188 90 90 if $line =~ (shift())
226 0 0 unless $_[1] =~ /\A08[0-9]{8}\z/
233 0 0 unless $_[1] =~ /\A08[0-9]{8}\z/
239 0 0 unless _check_line(@_, qr/\A8/)
267 54 0 $num =~ /\A1(?:|[578]|0[0-9]{2}|1(?:[259]|6000|8[0-9]{3}))\z/ ? :
289 54 98 unless @m
314 6 0 defined $fmt ? :