| line |
true |
false |
branch |
|
25
|
0 |
1 |
defined $debug ? : |
|
47
|
0 |
1 |
if $me->port($$me{'PORT'}) and $me->host($$me{'HOST'}) and $me->connect |
|
57
|
0 |
1 |
unless my $port = shift() |
|
59
|
0 |
1 |
unless ($port =~ /^\d+$/) |
|
60
|
0 |
0 |
unless my $tmp = getservbyname($port, 'tcp') |
|
71
|
0 |
1 |
unless my $host = shift() |
|
75
|
1 |
0 |
unless $addr = inet_aton($host) |
|
90
|
0 |
0 |
if (defined fileno $SOCK) |
|
91
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
96
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
99
|
0 |
0 |
unless socket $SOCK, 2, 1, getprotobyname 'tcp' || 6 |
|
102
|
0 |
0 |
unless (CORE::connect $SOCK, pack_sockaddr_in($$me{'PORT'}, $$me{'ADDR'})) |
|
136
|
0 |
1 |
if defined $debug |
|
148
|
0 |
1 |
if defined $new |
|
160
|
1 |
1 |
if defined $new |
|
172
|
2 |
1 |
if defined $new |
|
182
|
0 |
1 |
if 0 < $$me{'CODE'} |
|
189
|
0 |
1 |
if 400 <= $$me{'CODE'} and $$me{'DBUG'} |
|
193
|
0 |
1 |
if 0 < $$me{'CODE'} |
|
312
|
1 |
0 |
if ($group) |
|
313
|
1 |
0 |
if ($group =~ /^[\d ]+/) { } |
|
342
|
1 |
0 |
unless $me->command('POST') |
|
352
|
0 |
0 |
unless $me->command("IHAVE $msgid") |
|
363
|
0 |
0 |
if $me->command("AUTHINFO USER $user") |
|
377
|
1 |
0 |
unless defined fileno $$me{'SOCK'} |
|
457
|
0 |
1 |
if $last |
|
470
|
0 |
1 |
if ($last) |
|
471
|
0 |
0 |
if ($last =~ /^\d+$/) { } |
|
478
|
0 |
1 |
@_ ? : |
|
480
|
1 |
0 |
unless $patterns |
|
492
|
0 |
1 |
if $last |
|
501
|
0 |
1 |
@_ ? : |
|
520
|
1 |
0 |
unless $me->command('XSEARCH') |
|
536
|
0 |
25 |
if 1 < $$me{'DBUG'} |
|
538
|
25 |
0 |
unless defined fileno $SOCK |
|
550
|
25 |
0 |
unless $me->cmd(@_) |
|
559
|
0 |
0 |
unless $me->okprint |
|
571
|
0 |
0 |
if ($me->okprint and $$me{'MESG'} =~ /(\d+)\s+(\d+)\s+(\d+)\s+(\w+)/) |
|
573
|
0 |
0 |
wantarray ? : |
|
583
|
0 |
0 |
$$me{'MESG'} =~ /(<[^>]+>)/ ? : |
|
|
0 |
0 |
if $me->okprint |
|
592
|
0 |
0 |
unless $me->okprint |
|
602
|
0 |
0 |
if $_ eq ".$$me{'EOL'}" |
|
608
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
610
|
0 |
0 |
wantarray ? : |
|
619
|
0 |
0 |
unless $me->okprint |
|
627
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
656
|
0 |
0 |
unless defined $_ |
|
661
|
0 |
0 |
if (/^((\d\d)(\d))\s*(.*)/) { } |
|
662
|
0 |
0 |
if $2 == 20 |
|
670
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
681
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
694
|
0 |
0 |
if 1 < $$me{'DBUG'} |
|
708
|
0 |
3 |
if $time =~ /^\d{8}\s+\d{6}(\s*GMT)?$/ |
|
711
|
0 |
3 |
if ($time =~ /^\d{6}\s+\d{6}(\s*GMT)?$/) |
|
712
|
0 |
0 |
if $$me{'FDY'} |
|
717
|
3 |
0 |
$$me{'GMT'} ? : |
|
720
|
0 |
3 |
if ($$me{'FDY'}) { } |
|
726
|
3 |
0 |
$$me{'GMT'} ? : |
|
733
|
2 |
0 |
unless @_ and '<' . join(',', @_) . '>' |