| line |
true |
false |
branch |
|
22
|
7 |
28 |
unless $self->pre_parse |
|
23
|
0 |
28 |
unless $self->parse |
|
24
|
0 |
28 |
unless $self->post_parse |
|
25
|
0 |
24 |
unless $self->rewrite |
|
26
|
2 |
22 |
unless $self->write_line |
|
27
|
0 |
22 |
unless $self->edit_line |
|
45
|
0 |
35 |
if $self->is_defenition |
|
46
|
6 |
29 |
if $self->is_contained |
|
47
|
1 |
28 |
if $self->is_arrow_contained |
|
55
|
27 |
1 |
if $self->end_char eq '{' |
|
72
|
4 |
20 |
unless $self->new_parts |
|
81
|
0 |
24 |
if $self->DEBUG |
|
94
|
1 |
23 |
if $end ne '{' |
|
95
|
4 |
19 |
unless $self->new_parts |
|
|
19 |
4 |
@{[] unless $self->new_parts;} ? : |
|
|
0 |
23 |
$self->prototype ? : |
|
137
|
295 |
1902 |
if @_ |
|
152
|
29 |
358 |
if @_ |
|
200
|
0 |
0 |
unless $word |
|
201
|
0 |
0 |
ref $_ ? : |
|
211
|
0 |
51 |
if @_ |
|
217
|
4 |
0 |
if blessed($_[0]) |
|
220
|
0 |
4 |
DEBUG() ? : |
|
237
|
140 |
731 |
if @_ |
|
244
|
211 |
126 |
unless $len |
|
251
|
0 |
90 |
unless $len |
|
262
|
35 |
0 |
if ($item =~ /^(.*)$name/) |
|
284
|
0 |
35 |
if $self->line =~ /sub[\s\n]+$name/ms |
|
290
|
0 |
35 |
unless $self->peek_num_chars(1) |
|
291
|
29 |
6 |
if $self->peek_num_chars(1) ne '(' |
|
314
|
1 |
28 |
if $stuff =~ /^=>[\s\n]*\(/ms |
|
320
|
12 |
86 |
if $self->peek_is_quote |
|
321
|
44 |
42 |
if $self->peek_is_word |
|
322
|
34 |
8 |
if $self->peek_is_block |
|
323
|
1 |
7 |
if $self->peek_is_end |
|
324
|
7 |
0 |
if $self->peek_is_other |
|
333
|
0 |
98 |
unless $type |
|
336
|
35 |
63 |
unless $self->can($method) |
|
339
|
0 |
63 |
unless $item |
|
341
|
0 |
63 |
unless wantarray |
|
351
|
0 |
12 |
unless $self->peek_is_quote($start, $charstart) |
|
362
|
0 |
44 |
unless $len |
|
372
|
0 |
7 |
if $self->peek_is_word |
|
373
|
0 |
7 |
if $self->peek_is_quote |
|
374
|
0 |
7 |
if $self->peek_is_end |
|
375
|
0 |
7 |
if $self->peek_is_block |
|
412
|
0 |
49 |
unless $linestr =~ /^([^\s;{$quote]+)/ |
|
419
|
223 |
296 |
if wantarray |
|
455
|
49 |
132 |
unless $start =~ /^[A-Za-z_]$/ |
|
456
|
129 |
3 |
unless $self->peek_remaining =~ /^(\w+::[\w:]+)/ |
|
479
|
35 |
63 |
unless $item |
|
489
|
0 |
63 |
unless $self->can($method) |
|
492
|
44 |
19 |
if ($type eq 'word') { } |
|
|
12 |
7 |
elsif ($type eq 'quote') { } |
|
|
7 |
0 |
elsif ($type eq 'other') { } |
|
511
|
7 |
64 |
unless $part |
|
512
|
10 |
54 |
unless ref $part |
|
513
|
18 |
36 |
if $no_added_quotes and not $$part[1] |
|
514
|
24 |
12 |
unless $$part[1] |
|
549
|
17 |
6 |
if ($linestr =~ /}\s*$/) { } |
|
556
|
0 |
23 |
if $self->DEBUG |