| line |
true |
false |
branch |
|
36
|
0 |
0 |
exists $args{$_} ? : |
|
46
|
0 |
0 |
$@ ? : |
|
52
|
0 |
0 |
if $$self{'socket'}->opened |
|
59
|
0 |
0 |
if (defined $val) { } |
|
92
|
0 |
0 |
unless ($capability) |
|
94
|
0 |
0 |
if ($ok) |
|
96
|
0 |
0 |
if ($line =~ /^\*\s+CAPABILITY\s+(.*?)\s*$/) |
|
101
|
0 |
0 |
if ($requirement and $capability) |
|
111
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
127
|
0 |
0 |
if (@{$$row[1];} > 1) |
|
135
|
0 |
0 |
if ($$i[0]) |
|
144
|
0 |
0 |
$wants_one ? : |
|
163
|
0 |
0 |
if ($ok) |
|
168
|
0 |
0 |
if ($line =~ /^\*\s+(\d+)\s+EXISTS/i) { } |
|
|
0 |
0 |
elsif ($line =~ /^\*\s+FLAGS\s+\((.*?)\)/i) { } |
|
|
0 |
0 |
elsif ($line =~ /^\*\s+(\d+)\s+RECENT/i) { } |
|
|
0 |
0 |
elsif ($line =~ /^\*\s+OK\s+\[(.*?)\s+(.*?)\]/i) { } |
|
176
|
0 |
0 |
if ($value =~ /\((.*?)\)/) { } |
|
192
|
0 |
0 |
unless ($sep) |
|
194
|
0 |
0 |
if ($ok) { } |
|
207
|
0 |
0 |
if ($ok) |
|
209
|
0 |
0 |
wantarray ? : |
|
216
|
0 |
0 |
if ($ns) |
|
230
|
0 |
0 |
if ($ok) |
|
244
|
0 |
0 |
if ($ok) |
|
272
|
0 |
0 |
if ($ok) |
|
273
|
0 |
0 |
if $$_[0] =~ /^\*\s+(\d+)\s+FETCH\s*\(\s*UID\s+(\d+)/ |
|
287
|
0 |
0 |
$sort ? : |
|
288
|
0 |
0 |
if ($sort) { } |
|
289
|
0 |
0 |
if (ref $sort eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not $sort =~ /^\(/) { } |
|
301
|
0 |
0 |
if (ref $criteria eq 'HASH') |
|
306
|
0 |
0 |
unless uc $key eq 'UID' |
|
313
|
0 |
0 |
if ($ok) |
|
317
|
0 |
0 |
if ($line =~ s/^\*\s+(?:SEARCH|SORT)\s+//gi) |
|
330
|
0 |
0 |
if (ref $msg eq 'ARRAY') |
|
335
|
0 |
0 |
if ($ok) |
|
337
|
0 |
0 |
$wants_many ? : |
|
346
|
0 |
0 |
if ($ok) |
|
350
|
0 |
0 |
if ($hash{'FLAGS'}) |
|
362
|
0 |
0 |
if ($ok) |
|
366
|
0 |
0 |
if ($hash{'FLAGS'}) |
|
377
|
0 |
0 |
if (not $msg) { } |
|
|
0 |
0 |
elsif (ref $msg eq 'ARRAY') { } |
|
382
|
0 |
0 |
if ($headers) { } |
|
388
|
0 |
0 |
if ($ok) { } |
|
393
|
0 |
0 |
if ($$tokens[2] eq 'FETCH') { } |
|
395
|
0 |
0 |
if ($hash{'ENVELOPE'}) { } |
|
407
|
0 |
0 |
if $summary |
|
419
|
0 |
0 |
if (ref $msg eq 'ARRAY') |
|
423
|
0 |
0 |
if (ref $keys eq 'ARRAY') |
|
427
|
0 |
0 |
if ($ok) |
|
433
|
0 |
0 |
$wants_many || @ret > 1 ? : |
|
451
|
0 |
0 |
if ($ok) |
|
471
|
0 |
0 |
unless ref $rfc822 eq 'SCALAR' |
|
476
|
0 |
0 |
if ($flags) |
|
482
|
0 |
0 |
if ($date) |
|
496
|
0 |
0 |
if (ref $msg eq 'ARRAY') |
|
506
|
0 |
0 |
if (ref $msg eq 'ARRAY') |
|
511
|
0 |
0 |
if ($ok) |
|
517
|
0 |
0 |
$wants_many ? : |
|
526
|
0 |
0 |
if ($ok) |
|
530
|
0 |
0 |
if ($msg) |
|
536
|
0 |
0 |
if ($c eq '(') { } |
|
|
0 |
0 |
elsif ($c eq ')') { } |
|
540
|
0 |
0 |
if ($par == 0) |
|
554
|
0 |
0 |
if (ref $msg eq 'ARRAY') |
|
557
|
0 |
0 |
unless (ref $flags) |
|
587
|
0 |
0 |
if ($ok and $lines and @$lines) |
|
589
|
0 |
0 |
if ($ret =~ /^\*\s+(\d+)\s+EXPUNGE/) |
|
593
|
0 |
0 |
$ok ? : |
|
606
|
0 |
0 |
wantarray ? : |
|
628
|
0 |
0 |
if (not $$self{'ssl_verify_peer'} or not $$self{'ssl_ca_path'} || $$self{'ssl_ca_file'} and $^O ne 'linux') |
|
637
|
0 |
0 |
if ($^O eq 'linux' and not $$self{'ssl_ca_path'} and not $$self{'ssl_ca_file'}) |
|
639
|
0 |
0 |
unless -d $ssl_config{'SSL_ca_path'} |
|
642
|
0 |
0 |
if $$self{'ssl_ca_path'} |
|
643
|
0 |
0 |
if $$self{'ssl_ca_file'} |
|
650
|
0 |
0 |
$$self{'ssl'} ? : |
|
|
0 |
0 |
unless my $socket = ($$self{'socket'} ||= ($$self{'ssl'} ? 'IO::Socket::SSL' : 'IO::Socket::INET')->new((%{$$self{'ssl_options'};}) x !!$$self{'ssl'}, 'PeerAddr', $self->_get_server, 'PeerPort', $self->_get_port, 'Timeout', $self->_get_timeout, 'Proto', 'tcp', 'Blocking', 1, $self->_get_ssl_config)) |
|
685
|
0 |
0 |
if ($self->uid_mode and exists $UID_COMMANDS{$cmd}) |
|
689
|
0 |
0 |
if (ref $args eq 'ARRAY') |
|
692
|
0 |
0 |
if (ref $_ eq 'SCALAR') |
|
700
|
0 |
0 |
if (@literals == 0) { } |
|
701
|
0 |
0 |
$args ? : |
|
713
|
0 |
0 |
if ($line =~ /^\+/) { } |
|
738
|
0 |
0 |
unless $read |
|
750
|
0 |
0 |
if ($res =~ /^NIC$id\s+OK/i) { } |
|
|
0 |
0 |
elsif ($res =~ /^NIC$id\s+(?:NO|BAD)(?:\s+(.+))?/i) { } |
|
763
|
0 |
0 |
if ($res =~ /^(NIC\d+)\s+OK/i) { } |
|
|
0 |
0 |
elsif ($res =~ /^(NIC\d+)\s+(?:NO|BAD)(?:\s+(.+))?/i) { } |
|
777
|
0 |
0 |
if ($force or not $self->_get_socket->connected) |
|
780
|
0 |
0 |
if ($self->login) |
|
781
|
0 |
0 |
if ($$self{'selected_folder'}) |
|
800
|
0 |
0 |
if $self->_reconnect_if_needed |
|
808
|
0 |
0 |
if ($res =~ /^\*/) |
|
812
|
0 |
0 |
if @$accumulator |
|
815
|
0 |
0 |
if ($res =~ /(.*)\{(\d+)\}\r\n/) { } |
|
822
|
0 |
0 |
if (defined $ok) { } |
|
830
|
0 |
0 |
if @$accumulator |
|
832
|
0 |
0 |
unless (defined $res) |
|
833
|
0 |
0 |
if $self->_reconnect_if_needed(1) |
|
836
|
0 |
0 |
if ($do_notf) |
|
842
|
0 |
0 |
if scalar @$line != 1 |
|
852
|
0 |
0 |
if ($text =~ /^\*\s+\d+\s+FETCH\s*\(\s*FLAGS\s*\([^\)]*?\)\)/ or not $text =~ /^\*\s+(?:\d+\s+)?$cmd/) |
|
855
|
0 |
0 |
if ($self->_handle_notification($tokens, 1)) |
|
865
|
0 |
0 |
$ok ? : |
|
|
0 |
0 |
wantarray ? : |
|
882
|
0 |
0 |
if $self->_reconnect_if_needed |
|
893
|
0 |
0 |
if ($res =~ /^\*/) |
|
894
|
0 |
0 |
if @$accumulator |
|
897
|
0 |
0 |
if ($res =~ /(.*)\{(\d+)\}\r\n/) { } |
|
904
|
0 |
0 |
if (defined $ok) { } |
|
912
|
0 |
0 |
if @$accumulator |
|
913
|
0 |
0 |
unless (defined $res) |
|
914
|
0 |
0 |
if $self->_reconnect_if_needed(1) |
|
929
|
0 |
0 |
if ($_[0] =~ s/^"//g) |
|
964
|
0 |
0 |
if (ref $text) |
|
965
|
0 |
0 |
$no_deref ? : |
|
970
|
0 |
0 |
if ($text =~ /\G[([]/cg) { } |
|
|
0 |
0 |
elsif ($text =~ /\G(BODY\[[a-zA-Z0-9._() -]*\])/cg) { } |
|
|
0 |
0 |
elsif ($text =~ /\G[])]/cg) { } |
|
|
0 |
0 |
elsif ($text =~ /\G\"((?:\\.|[^\"\\])*)\"/cg) { } |
|
|
0 |
0 |
elsif ($text =~ /\G(\d+)/cg) { } |
|
|
0 |
0 |
elsif ($text =~ m[\G([a-zA-Z0-9_\$\\.+/*&-]+)]cg) { } |
|
988
|
0 |
0 |
if (lc $atom eq 'nil') |
|
1008
|
0 |
0 |
if ($sf) |
|
1010
|
0 |
0 |
if ($$tokens[2] eq 'FETCH') { } |
|
|
0 |
0 |
elsif ($$tokens[2] eq 'EXISTS') { } |
|
|
0 |
0 |
elsif ($$tokens[2] eq 'EXPUNGE') { } |
|
|
0 |
0 |
elsif ($$tokens[2] eq 'RECENT') { } |
|
|
0 |
0 |
elsif ($$tokens[1] eq 'FLAGS') { } |
|
|
0 |
0 |
elsif ($$tokens[1] eq 'OK') { } |
|
1012
|
0 |
0 |
if (my $flags = $data{'FLAGS'}) |
|
1015
|
0 |
0 |
if (first sub {
$_ eq '\\Deleted';
}
, @$flags) |
|
1019
|
0 |
0 |
if ($data{'UID'}) |
|
1045
|
0 |
0 |
if (defined $not) |
|
1047
|
0 |
0 |
if ($reverse) { } |