| line |
true |
false |
branch |
|
187
|
3 |
21 |
if (exists $arg{'backend'}) |
|
189
|
2 |
1 |
if ($backend ne 'Parser') |
|
198
|
1 |
1 |
unless (defined $newcode) |
|
205
|
21 |
1 |
unless (ref $self) |
|
221
|
6 |
324 |
if (defined $arg{$var}) |
|
227
|
22 |
0 |
unless defined $self->debug |
|
228
|
19 |
3 |
unless defined $self->trace_program |
|
235
|
2 |
20 |
if (defined $self->host) { } |
|
|
0 |
20 |
elsif (defined $self->text) { } |
|
250
|
0 |
1 |
unless $type |
|
255
|
1 |
0 |
if (ref $self) |
|
266
|
1 |
14 |
if (defined $arg{$var}) |
|
274
|
0 |
1 |
if (defined $clone->host) { } |
|
|
0 |
1 |
elsif (defined $clone->text) { } |
|
296
|
0 |
2 |
unless $host |
|
307
|
1 |
1 |
if (defined $total_wait) |
|
329
|
0 |
3 |
unless (defined $len) |
|
331
|
0 |
0 |
if $errno == 11 or $errno == 4 |
|
334
|
1 |
2 |
unless $len |
|
340
|
1 |
1 |
if (defined $total_wait) |
|
342
|
0 |
1 |
if $now >= $end_time |
|
346
|
1 |
1 |
if (defined $total_wait) |
|
348
|
1 |
0 |
if $now >= $end_time |
|
360
|
0 |
2 |
if $accum eq '' |
|
366
|
1 |
1 |
if ($self->stat != TRACEROUTE_TIMEOUT()) |
|
400
|
0 |
3 |
unless $hop_ary |
|
410
|
15 |
0 |
if $$self{'hops'} and $$self{'hops'}[$hop] |
|
417
|
0 |
0 |
if ($hops) |
|
431
|
0 |
0 |
unless defined $last_hop |
|
442
|
0 |
0 |
if ($stat == TRACEROUTE_OK() or $stat == TRACEROUTE_BSDBUG() or $stat == TRACEROUTE_UNREACH_PROTO()) |
|
472
|
93 |
191 |
if @_ |
|
540
|
0 |
6 |
if $self->$key |
|
545
|
0 |
12 |
if (defined $val) |
|
565
|
18 |
184 |
unless defined $icmp_map |
|
577
|
1 |
224 |
if /^traceroute to / |
|
580
|
0 |
224 |
if /^trying to get / |
|
581
|
0 |
224 |
if /^source should be / |
|
585
|
0 |
224 |
if (/^message too big, trying new MTU = (\d+)/) |
|
600
|
0 |
224 |
if /^\s+MPLS Label=(\d+) CoS=(\d) TTL=(\d+) S=(\d+)/ |
|
604
|
9 |
215 |
if (/^Type escape sequence to abort/) |
|
608
|
9 |
206 |
if /^Tracing the route to/ |
|
612
|
18 |
188 |
if /^$/ |
|
618
|
8 |
180 |
if s/^\s{4}(\d+\.\d+\.\d+\.\d+ )/$1/ |
|
619
|
6 |
174 |
if s/^\s{4}([0-9a-fA-F:]*:[0-9a-fA-F]*(?:\.\d+\.\d+\.\d+)?)/$1/ |
|
624
|
0 |
174 |
unless s/^ ?([0-9 ][0-9]) // |
|
642
|
115 |
606 |
if (s/^ ?(\d+\.\d+\.\d+\.\d+)//) |
|
649
|
78 |
528 |
if (s/^ ?([0-9a-fA-F:]*:[0-9a-fA-F]*(?:\.\d+\.\d+\.\d+)?)//) |
|
656
|
0 |
528 |
if s/^ \((\d+\.\d+\.\d+\.\d+)\)// |
|
659
|
495 |
33 |
if (s/^ ? ?([0-9.]+) ms(?:ec)?//) |
|
669
|
16 |
17 |
if (s/^ +\*//) |
|
693
|
17 |
0 |
if (s/^ (!<\d+>|\?|![$icmp_map_re]?) ?//) |
|
699
|
7 |
10 |
if defined $last_token and $last_token == 1 |
|
702
|
0 |
17 |
if ($flag =~ /^!<\d>$/) { } |
|
|
0 |
17 |
elsif ($flag =~ /^!$/) { } |
|
|
12 |
5 |
elsif ($flag =~ /^!([$icmp_map_re])$/) { } |
|
|
5 |
0 |
elsif ($flag eq '?') { } |
|
710
|
0 |
12 |
unless defined $$icmp_map{$icmp} |
|
721
|
7 |
10 |
if (defined $last_token and $last_token == 1) { } |
|
733
|
0 |
0 |
if /^$/ |
|
737
|
0 |
0 |
if s/^ \[AS \d+\]// |
|
739
|
0 |
0 |
if s/ \[MPLS: Label \d+ Exp \d+\]// |
|
740
|
0 |
0 |
if s( \[MPLS: Labels \d+(?:/\d+)* Exp \d+\])[] |
|
743
|
0 |
0 |
if s/^ \(ttl ?= ?\d+!\)// |
|
799
|
5 |
149 |
if ($query == -1) { } |
|
806
|
8 |
3 |
if ($query_stat == TRACEROUTE_TIMEOUT()) |
|
807
|
0 |
3 |
if ($query_stat == TRACEROUTE_UNKNOWN()) |
|
821
|
49 |
0 |
unless $self->debug >= $level |