line |
l |
!l&&r |
!l&&!r |
condition |
163
|
0 |
0 |
0 |
$item eq '.' or $item eq '..' |
370
|
4 |
2 |
0 |
delete $args{'label'} // do {
my $label = (caller 1)[0];
foreach $_ ($label) {
s/^Net::Async::/Na/g;
s/^IO::Async::/Ia/g;
s/^Web::Async::/Wa/g;
s/^Tickit::Async::/Ta/g;
s/^Tickit::Widget::/TW/g;
s/::([^:]*)$/->$1/;
};
$label
} |
414
|
1 |
0 |
0 |
$args{'port'} // () |
|
0 |
1 |
0 |
$uri //= 'udp://' . join(':', $args{'host'} // '*', $args{'port'} // ()) |
419
|
0 |
1 |
0 |
$args{'label'} // $uri->as_string |
422
|
0 |
1 |
0 |
$args{'label'} // $uri->as_string |
487
|
0 |
1 |
0 |
$uri //= do {
$args{'host'} //= '0.0.0.0';
'udp://' . join(':', $args{'host'}, $args{'port'} // ())
} |
489
|
0 |
1 |
0 |
$args{'port'} // () |
540
|
0 |
1 |
0 |
$uri //= do {
$args{'host'} //= '0.0.0.0';
'tcp://' . join(':', $args{'host'}, $args{'port'} // ())
} |
542
|
0 |
1 |
0 |
$args{'port'} // () |
622
|
2 |
2 |
0 |
delete $args{'label'} // do {
my $label = (caller 1)[3];
foreach $_ ($label) {
s/^Database::Async::/Da/g;
s/^Net::Async::/Na/g;
s/^IO::Async::/Ia/g;
s/^Web::Async::/Wa/g;
s/^Job::Async::/Ja/g;
s/^Tickit::Async::/Ta/g;
s/^Tickit::Widget::/TW/g;
s/::([^:]*)$/->$1/;
};
$label
} |