line |
l |
!l&&r |
!l&&!r |
condition |
142
|
0 |
0 |
0 |
$item eq '.' or $item eq '..' |
349
|
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
} |
393
|
1 |
0 |
0 |
$args{'port'} // () |
|
0 |
1 |
0 |
$uri //= 'udp://' . join(':', $args{'host'} // '*', $args{'port'} // ()) |
398
|
0 |
1 |
0 |
$args{'label'} // $uri->as_string |
401
|
0 |
1 |
0 |
$args{'label'} // $uri->as_string |
466
|
0 |
1 |
0 |
$uri //= do {
$args{'host'} //= '0.0.0.0';
'udp://' . join(':', $args{'host'}, $args{'port'} // ())
} |
468
|
0 |
1 |
0 |
$args{'port'} // () |
519
|
0 |
1 |
0 |
$uri //= do {
$args{'host'} //= '0.0.0.0';
'tcp://' . join(':', $args{'host'}, $args{'port'} // ())
} |
521
|
0 |
1 |
0 |
$args{'port'} // () |
601
|
1 |
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
} |