| line |
true |
false |
branch |
|
264
|
27 |
0 |
$] > 5.00562 ? : |
|
266
|
0 |
27 |
unless $$self{'bbsfile'} = shift() |
|
271
|
0 |
27 |
unless -f ($$self{'bbsfile'} = _locate($$self{'bbsfile'})) |
|
279
|
27 |
0 |
if ($$self{'bbsaddr'} =~ /^(.*?)(:\d+)?\r?$/) { } |
|
281
|
2 |
25 |
$2 ? : |
|
303
|
0 |
6 |
if $_[0] |
|
313
|
27 |
0 |
if -f $file |
|
316
|
0 |
0 |
if -f "$path/$file" |
|
317
|
0 |
0 |
if -f "$path/$file.bbs" |
|
342
|
3738 |
1164 |
unless $line =~ /^#|^\s*$/ |
|
345
|
3738 |
88 |
if defined $line |
|
353
|
12 |
88 |
if $$self{'loadstack'}{$bbsfile}++ |
|
358
|
0 |
88 |
unless open local *_FILE, $bbsfile |
|
362
|
27 |
61 |
if $bbsfile =~ /\.bbs$/i |
|
367
|
462 |
3107 |
if ($line =~ /^=(\w+)$/) { } |
|
|
3011 |
96 |
elsif ($line =~ /^\s*(
idle|load|doif|endo|goto|call|wait|send|else|till|setv|exit
)\s*(.*)$/x) { } |
|
|
96 |
0 |
elsif ($line =~ /^\s*or\s*(.+)$/) { } |
|
376
|
241 |
2770 |
unless ($$self{'state'}) |
|
379
|
168 |
73 |
if ($1 eq 'setv') { } |
|
|
73 |
0 |
elsif ($1 eq 'load') { } |
|
391
|
0 |
0 |
exists $$self{'var'}{$1} ? : |
|
401
|
73 |
0 |
unless ($file =~ /\.bbs$/) |
|
403
|
73 |
0 |
unless -e $file |
|
407
|
0 |
73 |
unless -e $file |
|
420
|
0 |
96 |
unless $$self{'state'} |
|
421
|
0 |
96 |
unless $$self{'proc'}{$$self{'state'}}[-2] eq 'wait' or $$self{'proc'}{$$self{'state'}}[-2] eq 'till' |
|
449
|
0 |
0 |
if (exists $$self{'proc'}{$sub}) { } |
|
455
|
0 |
0 |
if $$self{'debug'} |
|
474
|
0 |
0 |
if (exists $$self{'proc'}{$sub}) { } |
|
480
|
0 |
0 |
if $$self{'debug'} |
|
501
|
0 |
0 |
if $refresh |
|
504
|
0 |
0 |
defined $timeout ? : |
|
|
0 |
0 |
defined $refresh ? : |
|
508
|
0 |
0 |
if $refresh |
|
527
|
0 |
0 |
if ($$self{'netobj'}->timeout ne $timeout) |
|
529
|
0 |
0 |
if $$self{'debug'} |
|
535
|
0 |
0 |
unless exists $wait{$$val[1]} |
|
539
|
0 |
0 |
if (defined $$self{'state'}) |
|
541
|
0 |
0 |
unless exists $wait{$$val[1]} |
|
546
|
0 |
0 |
if (defined $param) |
|
548
|
0 |
0 |
unless exists $wait{$key} |
|
554
|
0 |
0 |
unless @keys |
|
556
|
0 |
0 |
if $$self{'debug'} |
|
559
|
0 |
0 |
m[^m/.*/[imsx]*$] ? : |
|
563
|
0 |
0 |
if $@ |
|
565
|
0 |
0 |
if ($retkey) |
|
572
|
0 |
0 |
$keys[$idx] =~ m[^m/.*/[imsx]*$] ? : |
|
|
0 |
0 |
($keys[$idx] =~ m[^m/.*/[imsx]*$] ? eval {
do {
"\$retkey =~ $keys[$idx]"
}
} : $retkey eq $keys[$idx]) ? : |
|
577
|
0 |
0 |
if $$self{'errmsg'} |
|
579
|
0 |
0 |
if ($wait{$retkey}) { } |
|
584
|
0 |
0 |
if (UNIVERSAL::isa($code, 'CODE')) { } |
|
595
|
0 |
0 |
defined $retval ? : |
|
|
0 |
0 |
if defined wantarray |
|
607
|
0 |
0 |
if ($op eq 'call') |
|
610
|
0 |
0 |
unless $$varref{$1} |
|
613
|
0 |
0 |
if defined wantarray xor wantarray |
|
618
|
0 |
0 |
if ($op eq 'wait') { } |
|
621
|
0 |
0 |
unless $$varref{$1} |
|
624
|
0 |
0 |
unless wantarray |
|
654
|
0 |
0 |
if ref $_[0] |
|
655
|
0 |
0 |
if @_ |
|
658
|
0 |
0 |
unless exists $$self{'proc'}{$sub} |
|
667
|
0 |
0 |
if $$self{'debug'} |
|
669
|
0 |
0 |
if $flag |
|
675
|
0 |
0 |
if $op eq 'endo' |
|
676
|
0 |
0 |
if $op eq 'else' |
|
677
|
0 |
0 |
unless $cond[-1] |
|
686
|
0 |
0 |
unless $op eq 'call' |
|
690
|
0 |
0 |
unless $op eq 'call' |
|
691
|
0 |
0 |
exists $$self{'var'}{$1} ? : |
|
|
0 |
0 |
unless $var{$1} |
|
695
|
0 |
0 |
if $$self{'debug'} |
|
697
|
0 |
0 |
if ($op eq 'doif') { } |
|
|
0 |
0 |
elsif ($op eq 'call') { } |
|
|
0 |
0 |
elsif ($op eq 'goto') { } |
|
|
0 |
0 |
elsif ($op eq 'wait') { } |
|
|
0 |
0 |
elsif ($op eq 'till') { } |
|
|
0 |
0 |
elsif ($op eq 'send') { } |
|
|
0 |
0 |
elsif ($op eq 'exit') { } |
|
|
0 |
0 |
elsif ($op eq 'setv') { } |
|
|
0 |
0 |
elsif ($op eq 'idle') { } |
|
703
|
0 |
0 |
exists $$self{'var'}{$1} ? : |
|
|
0 |
0 |
unless $var{$1} |
|
711
|
0 |
0 |
exists $$self{'var'}{$1} ? : |
|
|
0 |
0 |
unless $var{$1} |
|
715
|
0 |
0 |
unless $$self{'state'} eq "$param " . join(',', @params) |
|
718
|
0 |
0 |
if $$self{'debug'} |
|
722
|
0 |
0 |
unless $$self{'state'} eq $param |
|
723
|
0 |
0 |
wantarray ? : |
|
726
|
0 |
0 |
unless defined $self->Expect($param) |
|
731
|
0 |
0 |
if $lastidx == $#result |
|
736
|
0 |
0 |
if $$self{'errmsg'} |
|
739
|
0 |
0 |
unless defined $result[0] |
|
740
|
0 |
0 |
wantarray ? : |
|
756
|
0 |
0 |
if $$self{'debug'} |
|
757
|
0 |
0 |
wantarray ? : |