| line |
true |
false |
branch |
|
31
|
1 |
52 |
unless defined $$arg_ref{'linesource'} |
|
46
|
39 |
3 |
eval "$sourcetype->can('get_next_line')" ? : |
|
|
1 |
42 |
$sourcetype eq 'CODE' ? : |
|
|
1 |
43 |
$sourcetype eq 'SCALAR' ? : |
|
|
1 |
44 |
$sourcetype eq 'ARRAY' ? : |
|
|
6 |
45 |
$sourcetype eq 'GLOB' ? : |
|
|
1 |
51 |
$sourcetype eq '' ? : |
|
73
|
1 |
1 |
$i++ == 0 ? : |
|
121
|
143 |
249 |
if (defined $line{$obj_ID} and pos $line{$obj_ID} >= length $line{$obj_ID}) |
|
123
|
98 |
45 |
if defined $line{$obj_ID} |
|
126
|
45 |
347 |
unless defined $line{$obj_ID} |
|
128
|
14 |
0 |
$line{$obj_ID} =~ /\G (.) /cgmsx ? : |
|
|
94 |
14 |
$line{$obj_ID} =~ /\G ($PUNCTUATION) /cgmsx ? : |
|
|
110 |
108 |
$line{$obj_ID} =~ /\G ($IDENTIFIER) /cgmsx ? : |
|
|
3 |
218 |
$line{$obj_ID} =~ /\G ($BASE10_REAL) /cgmsx ? : |
|
|
3 |
221 |
$line{$obj_ID} =~ /\G ($BASED_NUMBER) /cgmsx ? : |
|
|
3 |
224 |
$line{$obj_ID} =~ /\G ($BIT_VECTOR_LITERAL) /cgmsx ? : |
|
|
11 |
227 |
$line{$obj_ID} =~ /\G ($CHAR_LITERAL) /cgmsx ? : |
|
|
6 |
238 |
$line{$obj_ID} =~ /\G ($COMMENT) /cgmsx ? : |
|
|
14 |
244 |
substr($line{$obj_ID}, pos $line{$obj_ID}, 1) eq '"' ? : |
|
|
76 |
258 |
$line{$obj_ID} =~ /\G ($WHITESPACE) /cgmsx ? : |
|
|
13 |
334 |
$line{$obj_ID} =~ /\G ($NEW_LINE) /cgmsx ? : |
|
144
|
252 |
95 |
if (substr($match, 0, 1) eq 'c') |
|
153
|
162 |
185 |
wantarray ? : |
|
161
|
12 |
2 |
if ($line{$obj_ID} =~ /\G ($DBL_QUOTED) /cgmsx) |
|
167
|
2 |
0 |
unless (defined $nextline) |
|
185
|
12 |
34 |
if $age >= @{$history{$obj_ID};} |