line |
true |
false |
branch |
22
|
2 |
29 |
if ($str =~ m[^poe://[^/]+/[^/]+$]) |
25
|
10 |
21 |
unless $str =~ /^\Q$scheme:\E/ |
38
|
16 |
50 |
if (@_) |
40
|
5 |
11 |
unless defined $old |
41
|
0 |
16 |
$tmp =~ /(.*@)/ ? : |
43
|
2 |
14 |
unless defined $new |
44
|
14 |
2 |
if (length $new) |
47
|
14 |
2 |
if ($ui or length $new) { } |
54
|
25 |
41 |
unless defined $old |
65
|
54 |
229 |
if (@_) |
67
|
32 |
22 |
if ($new =~ m[(.+)/(.+)]) |
86
|
49 |
129 |
if (@_) |
88
|
32 |
17 |
if $new[0] eq '' |
89
|
43 |
6 |
if (2 <= @new) |
103
|
25 |
23 |
if defined $seg[0] and $seg[0] eq '' |
105
|
10 |
38 |
if (1 == @seg) |
109
|
35 |
13 |
if (@seg >= 2) |
114
|
14 |
34 |
if (@_) |
116
|
3 |
11 |
unless defined $new |
117
|
12 |
2 |
defined $event ? : |
128
|
4 |
35 |
unless defined $old |
129
|
11 |
28 |
if (@_) |
132
|
8 |
3 |
if (@seg >= 2) { } |
|
0 |
3 |
elsif (@seg) { } |
139
|
0 |
3 |
if ($self->kernel and defined $new) |
164
|
4 |
4 |
if (@_) |
168
|
2 |
2 |
if (defined $new) { } |
|
1 |
1 |
elsif (defined $pw) { } |
171
|
2 |
0 |
if defined $pw |
179
|
5 |
3 |
if $old |
188
|
1 |
3 |
unless $old =~ s/^.*?:// |
195
|
2 |
7 |
unless $old =~ s/^.*?:// |
197
|
5 |
4 |
if (@_) |
199
|
0 |
5 |
unless defined $user |
201
|
3 |
2 |
if (defined $new) { } |
209
|
6 |
3 |
if $old |
217
|
9 |
20 |
unless $kernel |
218
|
3 |
17 |
if $kernel =~ /:\d*$/ |
219
|
0 |
17 |
if $kernel =~ /^\[[:0-9a-f]+\]$/i |
220
|
1 |
16 |
if $kernel =~ /^\d+\.\d+\.\d+\.\d+/ |
221
|
0 |
16 |
if $kernel =~ /^[-\w.]+$/ and $kernel =~ /[.]/ |
231
|
4 |
25 |
if (_is_inet($kernel)) |
232
|
2 |
2 |
if $other == $self |
236
|
2 |
1 |
if (defined $port and $port eq '' || $port == $self->default_port) |
237
|
0 |
2 |
if $other == $self |
241
|
4 |
25 |
if ($other =~ m[poe:/[^/]]) |
242
|
4 |
0 |
if $other == $self |
247
|
21 |
8 |
if (2 < @seg) |
248
|
16 |
5 |
if $other == $self |
258
|
0 |
0 |
if 1 == @_ |
267
|
0 |
7 |
if $POE::Kernel::poe_kernel and $POE::Kernel::poe_kernel->can('ID') |
271
|
2 |
0 |
if ($kernel and !$kid || $kernel ne $kid) |
277
|
6 |
1 |
unless wantarray |
286
|
0 |
7 |
if (@_) |
287
|
0 |
0 |
if (1 == @_) { } |
289
|
0 |
0 |
if (not ref $new) { } |
|
0 |
0 |
elsif ('ARRAY' eq ref $new) { } |
303
|
7 |
0 |
unless defined $old |
313
|
7 |
0 |
unless defined $q |
315
|
0 |
0 |
if ($q =~ /=/) |
316
|
0 |
0 |
/=/ ? : |
330
|
0 |
6 |
unless ref $base |
334
|
0 |
6 |
unless $abs->scheme |
337
|
9 |
9 |
if defined $f and length $f |
339
|
0 |
9 |
unless length $f |
352
|
1 |
2 |
unless ref $base |
359
|
0 |
0 |
unless (defined $scheme or defined $auth) |
370
|
0 |
9 |
unless defined $_ |
373
|
1 |
2 |
unless ($scheme eq $bscheme and $auth eq $bauth) |
383
|
0 |
8 |
unless defined $_ |
386
|
1 |
1 |
if ($bsession eq $session) |
389
|
0 |
2 |
if ($bevent eq $event) |