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 |