Branch Coverage

blib/lib/Lingua/EN/Numbers.pm
Criterion Covered Total %
branch 55 70 78.5


line true false branch
10 4 0 unless defined &DEBUG
49 0 4 unless defined $_[0] and length $_[0]
53 0 4 unless $x
54 0 4 unless $x =~ s/(\w+)$//s
67 2 78 unless defined $x and length $x
69 0 78 if $x eq 'NaN'
70 0 78 if $x =~ /^\+inf(?:inity)?$/is
71 0 78 if $x =~ /^\-inf(?:inity)?$/is
72 0 78 if $x =~ /^inf(?:inity)?$/is
74 30 48 if exists $Lingua::EN::Numbers::D{$x}
77 3 45 if defined $e
84 11 34 if $x =~ s/^([-+])//s
87 31 14 if ($x =~ /^\d+$/) { }
7 7 elsif ($x =~ /^(\d+)\.(\d+)$/) { }
3 4 elsif ($x =~ /^\.(\d+)$/) { }
108 30 11 unless defined $_[0] and length $_[0]
109 7 4 if $_[0] eq '-'
110 4 0 if $_[0] eq '+'
115 31 10 unless defined $_[0] and length $_[0]
124 0 67 unless defined $_[0] and length $_[0] and $_[0] =~ /^\d+$/s
129 26 41 if defined $Lingua::EN::Numbers::D{$x}
131 21 20 if ($x =~ /^(.)(.)$/) { }
11 9 elsif ($x =~ /^(.)(..)$/) { }
138 1 10 if $rest eq '00'
148 0 9 unless defined $_[0] and length $_[0] and $_[0] =~ /^\d+$/s
160 19 4 if $num
163 0 9 unless @chunks
168 6 3 if $chunks[-1][1] == 0 and $chunks[-1][0] < 100
178 6 3 if ($and and @chunks > 1)
183 1 8 if @chunks == 2 and not $and
191 0 9 unless @$chunks
194 19 0 if $$c[0]
203 7 12 unless $multnum
205 12 0 if $Lingua::EN::Numbers::Mult{$multnum}
223 3 45 if ($x =~ / ^( [-+]? # leading sign (?: [\d,]+ | [\d,]*\.\d+ # number ) ) [eE] (-?\d+) # mantissa, has to be an integer $ /x) { }