| line |
l |
!l |
condition |
|
154
|
0 |
0 |
$packet_len // 'undef' |
|
178
|
0 |
0 |
$bytes // 'undef' |
|
194
|
0 |
0 |
$bytes // 'undef' |
|
208
|
0 |
0 |
$packet_len // 'undef' |
|
214
|
0 |
0 |
$packet_len // 'undef' |
|
335
|
0 |
0 |
$id // '-' |
|
339
|
0 |
0 |
$self->command_name($cmd) || 'unknown' |
|
360
|
0 |
0 |
$status_messages[$status] // 'failure' |
|
361
|
0 |
0 |
$lang //= 'en' |
|
402
|
0 |
0 |
$id // '-' |
|
421
|
0 |
0 |
$cmd //= 'undef' |
|
422
|
0 |
0 |
$id //= 'id' |
|
437
|
0 |
0 |
$self->command_name($cmd) // '-' |
|
|
0 |
0 |
$_[0] // '-' |
|
444
|
0 |
0 |
$self->command_name($cmd) || 'unknown' |
|
454
|
0 |
0 |
buf_shift_uint32($_[3]) // (goto BAD_PACKET) |
|
457
|
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
497
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_uint32($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_attrs($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_uint64($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_attrs($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_attrs($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_attrs($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_uint64($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_uint32($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_utf8($_[3]) // (goto BAD_PACKET) |
|
|
0 |
0 |
buf_shift_str($_[3]) // (goto BAD_PACKET) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
72
|
0 |
0 |
0 |
$fh ||= do {
no strict 'refs';
\*{uc "STD$name";}
} |
|
160
|
0 |
0 |
0 |
$wait_for_packet or length $$out_b |
|
338
|
0 |
0 |
0 |
$$self{'_packet_handler_cache'}[$cmd] ||= do {
my $name = $self->command_name($cmd) || 'unknown';
$self->can('unsupported_command') unless $self->can("handle_packet_${name}_v$$self{'protocol_version'}") or $self->can("handle_packet_$name")
} |
|
340
|
0 |
0 |
0 |
$self->can("handle_packet_${name}_v$$self{'protocol_version'}") or $self->can("handle_packet_$name") |
|
360
|
0 |
0 |
0 |
$msg //= $status_messages[$status] // 'failure' |
|
401
|
0 |
0 |
0 |
uc $self->command_name($cmd) || $cmd |
|
443
|
0 |
0 |
0 |
$$self{'_command_handler_cache'}[$cmd] ||= do {
my $name = $self->command_name($cmd) || 'unknown';
sub {
(shift())->unsupported_command($cmd, $_[0]);
}
unless $self->can("handle_command_${name}_v$$self{'protocol_version'}") or $self->can("handle_command_$name")
} |
|
447
|
0 |
0 |
0 |
$self->can("handle_command_${name}_v$$self{'protocol_version'}") or $self->can("handle_command_$name") |