Branch Coverage

blib/lib/Mail/Transport/IMAP4.pm
Criterion Covered Total %
branch 18 156 11.5


line true false branch
27 0 0 if (ref $imap) { }
34 0 0 $args->{'ssl'} ? :
39 0 0 unless $self->SUPER::init($args)
44 0 0 unless (ref $imap)
54 0 0 if ref $ssl eq "HASH"
56 0 0 unless $imap = $self->createImapClient($imap, %opts)
60 0 0 unless $self->imapClient($imap)
61 0 0 unless $self->login
69 0 0 $self->usesSSL ? :
85 0 0 exists $self->{'MTI_auth'} ? :
0 0 unless @types
87 0 0 if @types == 1 and $types[0] eq "AUTO"
94 0 0 $auth eq 'NTLM' ? :
0 0 ref $auth eq 'ARRAY' ? :
104 0 0 unless my $imap = $self->imapClient
105 0 0 /^AUTH=(\S+)/ ? :
109 0 0 if (@serverside)
110 0 0 $clientside{$_} ? :
113 0 0 unless @auth
121 0 0 if @_
122 0 0 unless $self->{'MTI_domain'}
130 0 0 @_ ? :
140 0 0 if ($self->log <= $debug_level or $self->trace <= $debug_level)
153 0 0 if $@
162 0 0 if $imap->IsAuthenticated
167 0 0 unless (defined $username)
171 0 0 unless (defined $password)
187 0 0 unless ($imap->connect)
196 0 0 if defined $challenge
198 0 0 if ($imap->login)
206 0 0 if $retries > 0 and --$retries == 0
209 0 0 unless $warn_fail++
213 0 0 if $interval
222 0 0 unless @_
226 0 0 if (defined $self->{'MTI_folder'} and $name eq $self->{'MTI_folder'})
235 0 0 unless my $imap = $self->imapClient
237 0 0 if ($name eq "/" or $imap->select($name))
251 0 0 if (&first(sub { $_ eq $name; } , $self->folders))
266 0 0 unless my $imap = $self->imapClient
267 0 0 if defined $top and $top eq "/"
280 0 0 defined $top ? :
293 0 0 unless my $imap = $self->imapClient
324 0 0 unless my $imap = $self->imapClient
330 0 0 unless exists $$labels{$s->[0]}
344 0 0 unless my $imap = $self->imapClient
349 0 0 if (my $r = $labels2flags{$label}) { }
351 0 0 $value ? :
353 0 0 $value ? :
370 2 5 if (@_ == 1) { }
373 6 0 if (my $r = $labels2flags{$label})
374 5 1 $value ? :
5 1 if $value ? $r->[1] : !$r->[1]
381 20 0 if (my $r = $labels2flags{$label})
382 12 8 $value ? :
12 8 if $value ? $r->[1] : !$r->[1]
398 9 0 if (my $lab = $flags2labels{$f}) { }
399 0 9 $clear ? :
407 3 0 if ($what eq "REPLACE")
410 9 12 if $found{$f}
416 0 3 wantarray ? :
422 0 0 unless my $imap = $self->imapClient
423 0 0 unless my $parsed = $imap->parse_headers($id, @_)
435 0 0 unless my $imap = (shift())->imapClient
436 0 0 ref $_[0] ? :
443 0 0 unless @$msgs
444 0 0 unless my $imap = $self->imapClient
453 0 0 unless $line =~ /\(.*?UID\s+(\d+)/i
455 0 0 unless my $info = $msgs{$id}
457 0 0 if ($line =~ s/^[^(]* \( \s* //x)
468 0 0 if ($line =~ /^\s* (\S+) [ ]*$/x)
474 0 0 if $extra eq ")\n"
489 0 0 unless my $imap = $self->imapClient
491 0 0 if $date and not $date =~ /\D/
504 0 0 unless defined $folder
506 0 0 unless my $imap = (shift())->imapClient
512 0 0 unless my $imap = (shift())->imapClient
518 0 0 unless my $imap = (shift())->imapClient
529 0 0 if defined $imap