Condition Coverage

blib/lib/Language/GolfScript.pm
Criterion Covered Total %
condition 63 141 44.6


and 3 conditions

line !l l&&!r l&&r condition
115 12 28 1934 ref $_[0] ne 'ARRAY' && !($_[0] =~ /^["{]/)
126 81 1567 1 @_ == 1 and not defined $_[0]
200 0 0 0 @tokens and not $tokens[0] =~ /\S/
208 0 0 0 @tokens and not $tokens[0] =~ /\S/
209 0 0 0 @tokens and $tokens[0] =~ /^\#/
389 2204 0 0 $DEBUG and $DEBUG > 2 || $token =~ /\S/
394 0 2 3 @tokens > 0 and substr($comment, -1) ne "\n"
398 2 0 0 $DEBUG and not $comment =~ /^#;/
444 1014 0 109 $token =~ /^'/ and $token =~ /'$/
1007 0 7 $token =~ /^"/ and $token =~ /"$/
482 48 0 2 $char eq '#' and $chars[0] eq '{'
488 0 0 22 @stack and @chars
490 20 0 0 $char eq '{' and $stack[-1] eq '}'
535 0 0 3 @chars and $chars[0] =~ /[0-7]/
1135 8 27 0 is_number($b) and not is_number($a)
1198 3 2 2 is_number($b) and not is_number($a)
1264 11 2 0 is_block($a) and is_block($b)
1462 0 0 0 is_block($condition) and is_block($body)
1478 0 0 0 is_block($condition) and is_block($body)
1581 94 1 6 is_array($a) and @$a == 0
85 9 1 is_string($a) and get_string($a) eq ''
92 1 1 is_block($a) and get_block($a) eq ''
11 47 35 is_number($a) and get_number($a) == 0
1598 2 0 28 $i < @$a and $i < @$b
1706 1 0 0 $type0 eq 'array' and $type1 eq 'string'
0 0 1 $type0 eq 'string' and $type1 eq 'array'
0 0 0 $type0 eq 'array' and $type1 eq 'block'
0 0 0 $type0 eq 'block' and $type1 eq 'array'
0 0 0 $type0 eq 'string' and $type1 eq 'block'
0 0 0 $type0 eq 'block' and $type1 eq 'string'

or 2 conditions

line l !l condition
289 55 74 pop @Language::GolfScript::LB || 0
330 1 314 $optional_input || ''
342 0 0 shift() || 'normal'
1334 1 1 $b || ''
1686 16 0 $GS_TYPE_PRIORITY{$type0} || 0
16 0 $GS_TYPE_PRIORITY{$type1} || 0

or 3 conditions

line l !l&&r !l&&!r condition
389 0 0 0 $DEBUG > 2 || $token =~ /\S/
831 0 0 0 is_string($b) or is_block($b)
0 0 0 is_string($b) or is_block($b) or is_number($b)
1059 0 0 0 is_array($b) or is_block($b)
1110 0 0 7 is_array($b) or is_block($b)
1142 0 0 29 is_block($a) or is_string($a)
1212 2 0 2 is_string($b) or is_block($b)
1492 0 0 2 is_array($a) or is_string($a)
0 0 2 is_array($a) or is_string($a) or is_block($a)
1581 6 0 95 is_array($a) and @$a == 0 or is_string($a) and get_string($a) eq ''
1 0 94 is_array($a) and @$a == 0 or is_string($a) and get_string($a) eq '' or is_block($a) and get_block($a) eq ''
1 0 93 is_array($a) and @$a == 0 or is_string($a) and get_string($a) eq '' or is_block($a) and get_block($a) eq '' or is_number($a) and get_number($a) == 0
1861 0 0 15 ord $char < 32 or ord $char >= 127