Branch Coverage

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


line true false branch
29 952 0 if @_ or return $endianness
37 15 277933 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 1579 unless $arg and not ref $arg
62 1 959 unless &$chars(@_)
63 168 791 unless join('', @{$char_values;}) eq $arg
70 12 237051 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 47379 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 1640 unless &looks_like_number($arg) and $arg <= 4294967295 and $arg >= 0
149 2 7524 unless any_uint32(@_)
150 5814 1710 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 16628 unless any_uint32(@_)
185 360 16268 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 1189 unless &looks_like_number($arg) and $arg < 2147483648 and $arg >= -2147483648
239 1 2737 unless any_int32(@_)
240 2616 121 unless $arg == $value
270 0 2 unless count(4, \&Statistics::R::IO::Parser::any_uint8)->(@_)
278 0 5815 unless count(8, \&Statistics::R::IO::Parser::any_uint8)->(@_)
292 14 300701 unless my $result = &$parser($state)
311 5813 16585 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 9403 unless my $state = shift()
350 9402 8598 if $result
419 0 72336 unless $p1 and $fp2
423 8594 85191 unless $v1
430 0 4837 unless @_ and scalar @_ <= 2
433 2 4835 if scalar @_ == 1