Branch Coverage

blib/lib/Statistics/R/IO/Parser.pm
Criterion Covered Total %
branch 85 114 74.5


line true false branch
29 486 0 if @_ or return $endianness
37 15 113133 if not $state or $state->eof
45 1 6 unless length $arg == 1
48 0 16 unless my $state = shift()
49 10 6 if $state->eof or $arg ne $state->at
58 1 647 unless $arg and not ref $arg
62 1 387 unless &$chars(@_)
63 62 325 unless join('', @{$char_values;}) eq $arg
70 12 96519 unless any_char(@_)
77 0 18 unless count(2, \&Statistics::R::IO::Parser::any_uint8)->(@_)
85 4 175 unless count(3, \&Statistics::R::IO::Parser::any_uint8)->(@_)
88 9 166 endianness() eq '>' ? :
94 6 18983 unless count(4, \&Statistics::R::IO::Parser::any_uint8)->(@_)
103 0 169 unless &looks_like_number($arg) and $arg <= 255 and $arg >= 0
107 0 169 unless any_uint8(@_)
108 2 167 unless $arg == $value
117 0 8 unless &looks_like_number($arg) and $arg <= 65535 and $arg >= 0
121 0 8 unless any_uint16(@_)
122 2 6 unless $arg == $value
131 0 8 unless &looks_like_number($arg) and $arg <= 16777215 and $arg >= 0
135 2 6 unless any_uint24(@_)
136 2 4 unless $arg == $value
145 0 700 unless &looks_like_number($arg) and $arg <= 4294967295 and $arg >= 0
149 2 3172 unless any_uint32(@_)
150 2458 714 unless $arg == $value
158 0 4 unless any_char(@_)
165 0 4 unless any_uint16(@_)
167 2 2 if $value >= 32768
174 0 4 unless any_uint24(@_)
176 2 2 if $value >= 8388608
183 2 6502 unless any_uint32(@_)
185 168 6334 if $value >= 2147483648
193 0 2 unless &looks_like_number($arg) and $arg < 128 and $arg >= -128
197 0 2 unless any_int8(@_)
198 0 2 unless $arg == $value
207 0 2 unless &looks_like_number($arg) and $arg < 32768 and $arg >= -32768
211 0 2 unless any_int16(@_)
212 0 2 unless $arg == $value
221 0 2 unless &looks_like_number($arg) and $arg < 8388608 and $arg >= -8388608
225 0 2 unless any_int24(@_)
226 0 2 unless $arg == $value
235 0 521 unless &looks_like_number($arg) and $arg < 2147483648 and $arg >= -2147483648
239 1 1201 unless any_int32(@_)
240 1144 57 unless $arg == $value
270 0 2 unless count(4, \&Statistics::R::IO::Parser::any_uint8)->(@_)
278 0 2459 unless count(8, \&Statistics::R::IO::Parser::any_uint8)->(@_)
292 14 121881 unless my $result = &$parser($state)
311 2457 6573 unless my $result = &$parser($state)
324 0 1 unless $p and $end
327 0 2 unless my $state = shift()
331 1 2 unless my $result = &$p($state)
346 0 4013 unless my $state = shift()
350 4012 3664 if $result
419 0 29700 unless $p1 and $fp2
423 3660 34169 unless $v1
430 0 1793 unless @_ and scalar @_ <= 2
433 2 1791 if scalar @_ == 1