| line |
true |
false |
branch |
|
17
|
0 |
0 |
if @_ |
|
25
|
0 |
0 |
if ref $class |
|
78
|
0 |
0 |
if ref $args eq 'ARRAY' |
|
81
|
0 |
0 |
unless $self->state_list->{$something} |
|
83
|
0 |
0 |
if (ref $self->state_list->{$something} eq 'HASH') |
|
85
|
0 |
0 |
if $DEBUG |
|
87
|
0 |
0 |
if ($method) |
|
90
|
0 |
0 |
if $DEBUG |
|
91
|
0 |
0 |
if $DEBUG |
|
107
|
0 |
0 |
if $DEBUG |
|
109
|
0 |
0 |
if $$args[0] and $$args[0] =~ /^\d+$/ |
|
112
|
0 |
0 |
if $DEBUG |
|
113
|
0 |
0 |
if $DEBUG |
|
119
|
0 |
0 |
if $DEBUG |
|
121
|
0 |
0 |
unless $self->use('module', $module) |
|
127
|
0 |
0 |
if $DEBUG |
|
129
|
0 |
0 |
if ($func_full_name) { } |
|
142
|
0 |
0 |
if $DEBUG |
|
143
|
0 |
0 |
if ($limit and not $self->state_list->{$func_full_name}{'limit'}) |
|
152
|
0 |
0 |
if $DEBUG |
|
153
|
0 |
0 |
$delay ? : |
|
157
|
0 |
0 |
if $limit |
|
176
|
0 |
0 |
if $DEBUG |
|
185
|
0 |
0 |
unless $self->use('module', $module) |
|
192
|
0 |
0 |
if $DEBUG |
|
194
|
0 |
0 |
if ($something) { } |
|
204
|
0 |
0 |
if $DEBUG |
|
206
|
0 |
0 |
if $DEBUG |
|
208
|
0 |
0 |
if $DEBUG |
|
209
|
0 |
0 |
if $re_args[0] and not ref $re_args[0] and $re_args[0] =~ /^\d+$/ |
|
210
|
0 |
0 |
if $re_args[0] and not ref $re_args[0] and $re_args[0] =~ /^\w+/ |
|
212
|
0 |
0 |
$delay ? : |
|
|
0 |
0 |
!$next_mthod ? : |
|
234
|
0 |
0 |
if $DEBUG |
|
245
|
0 |
0 |
unless $self->use('module', $module) |
|
252
|
0 |
0 |
if $DEBUG |
|
254
|
0 |
0 |
if ($something) { } |
|
265
|
0 |
0 |
if $DEBUG |
|
270
|
0 |
0 |
$pointer >= $#{$self->state_list->{$something}{'next_mthod'};} ? : |
|
293
|
0 |
0 |
if $poe |
|
296
|
0 |
0 |
if /^method/ |
|
297
|
0 |
0 |
if $DEBUG |
|
300
|
0 |
0 |
if /^event/ |
|
302
|
0 |
0 |
if $DEBUG |
|
303
|
0 |
0 |
unless $kernel->call($module, $method, @{$args;}) |
|
305
|
0 |
0 |
if /^function/ |
|
308
|
0 |
0 |
if $DEBUG |
|
309
|
0 |
0 |
if $DEBUG |
|
311
|
0 |
0 |
if $DEBUG |
|
340
|
0 |
0 |
unless 'POE::API::Peek'->use |
|
346
|
0 |
0 |
1 == @list ? : |
|
353
|
0 |
0 |
unless 'POE::API::Peek'->use |
|
356
|
0 |
0 |
if $DEBUG |
|
366
|
0 |
0 |
unless 'POE::API::Peek'->use |
|
370
|
0 |
0 |
if $DEBUG |
|
379
|
0 |
0 |
unless my $module = shift @{$args{'args'};} |
|
388
|
0 |
0 |
unless my $module = shift @{$args{'args'};} |
|
389
|
0 |
0 |
!@{$args;} ? : |
|
411
|
0 |
0 |
if (/\$/) |
|
415
|
0 |
0 |
$inc{$_} ? : |
|
445
|
0 |
0 |
unless $module ||= shift @{$args{'args'};} |
|
446
|
0 |
0 |
do {
return unless $module->use;
$self->inc->{'load'}{$module} = [$INC{'Class::Inspector'->filename($module)}, scalar localtime];
1
} ? : |
|
|
0 |
0 |
'Class::Inspector'->loaded($module) ? : |
|
447
|
0 |
0 |
unless $module->use |
|
460
|
0 |
0 |
unless $module ||= shift @{$args{'args'};} |
|
471
|
0 |
0 |
unless my $module = shift @{$args{'args'};} |
|
475
|
0 |
0 |
if (not $self->inc->{'stay'}{$module} and $module ne 'POEIKC::Daemon::Utility') |
|
478
|
0 |
0 |
if $self->inc->{'org_inc'}{$_} |
|
479
|
0 |
0 |
if $self->inc->{'stay'}{$_} |
|
486
|
0 |
0 |
if (@{$args;} >= 1) { } |
|
488
|
0 |
0 |
if $DEBUG |
|
489
|
0 |
0 |
unless $poe->kernel->call($poe->session, 'execute_respond', $from, $args, $rsvp) |
|
504
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
506
|
0 |
0 |
if $DEBUG |
|
520
|
0 |
0 |
if (not $alias || $event_ary and $args) |
|
523
|
0 |
0 |
$flag_packagename_or_eventlist =~ /^_list$/i ? : |
|
527
|
0 |
0 |
if $DEBUG |
|
528
|
0 |
0 |
unless $alias and $event_ary |
|
543
|
0 |
0 |
if $DEBUG |
|
548
|
0 |
0 |
if ($kernel->alias_list($$args[0])) |
|
552
|
0 |
0 |
unless $module |
|
|
0 |
0 |
unless $method |
|
557
|
0 |
0 |
if ($$args[0] =~ /->/) |
|
561
|
0 |
0 |
unless $module |
|
|
0 |
0 |
unless $method |
|
566
|
0 |
0 |
if ($$args[0] =~ /::(\w+)$/) |
|
570
|
0 |
0 |
unless $module |
|
|
0 |
0 |
unless $method |
|
576
|
0 |
0 |
if $DEBUG |
|
583
|
0 |
0 |
unless $DEBUG |
|
584
|
0 |
0 |
unless 'Date::Calc'->use |
|
593
|
0 |
0 |
if (defined $subroutine and $subroutine eq '(eval)') |
|
597
|
0 |
0 |
unless $subroutine |
|
602
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
ref $_ ? : |
|
611
|
0 |
0 |
unless 'Date::Calc'->use |
|
619
|
0 |
0 |
if (defined $subroutine and $subroutine eq '(eval)') |
|
623
|
0 |
0 |
unless $subroutine |