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'
59 0 0 unless $imap = $self->createImapClient($imap, %opts)
63 0 0 unless $self->imapClient($imap)
64 0 0 unless $self->login
72 0 0 $self->usesSSL ? :
88 0 0 exists $self->{'MTI_auth'} ? :
0 0 unless @types
90 0 0 if @types == 1 and $types[0] eq 'AUTO'
97 0 0 $auth eq 'NTLM' ? :
0 0 ref $auth eq 'ARRAY' ? :
107 0 0 unless my $imap = $self->imapClient
108 0 0 /^AUTH=(\S+)/ ? :
112 0 0 if (@serverside)
113 0 0 $clientside{$_} ? :
116 0 0 unless @auth
124 0 0 if @_
125 0 0 unless $self->{'MTI_domain'}
133 0 0 @_ ? :
143 0 0 if ($self->log <= $debug_level or $self->trace <= $debug_level)
156 0 0 if $@
165 0 0 if $imap->IsAuthenticated
170 0 0 unless (defined $username)
174 0 0 unless (defined $password)
190 0 0 unless ($imap->connect)
199 0 0 if defined $challenge
201 0 0 if ($imap->login)
209 0 0 if $retries > 0 and --$retries == 0
212 0 0 unless $warn_fail++
216 0 0 if $interval
225 0 0 unless @_
229 0 0 if (defined $self->{'MTI_folder'} and $name eq $self->{'MTI_folder'})
238 0 0 unless my $imap = $self->imapClient
240 0 0 if ($name eq '/' or $imap->select($name))
254 0 0 if (&first(sub { $_ eq $name; } , $self->folders))
269 0 0 unless my $imap = $self->imapClient
270 0 0 if defined $top and $top eq '/'
283 0 0 defined $top ? :
296 0 0 unless my $imap = $self->imapClient
327 0 0 unless my $imap = $self->imapClient
333 0 0 unless exists $$labels{$s->[0]}
347 0 0 unless my $imap = $self->imapClient
352 0 0 if (my $r = $labels2flags{$label}) { }
354 0 0 $value ? :
356 0 0 $value ? :
373 2 5 if (@_ == 1) { }
376 6 0 if (my $r = $labels2flags{$label})
377 5 1 $value ? :
5 1 if $value ? $r->[1] : !$r->[1]
384 20 0 if (my $r = $labels2flags{$label})
385 12 8 $value ? :
12 8 if $value ? $r->[1] : !$r->[1]
401 9 0 if (my $lab = $flags2labels{$f}) { }
402 0 9 $clear ? :
410 3 0 if ($what eq 'REPLACE')
413 9 12 if $found{$f}
419 0 3 wantarray ? :
425 0 0 unless my $imap = $self->imapClient
426 0 0 unless my $parsed = $imap->parse_headers($id, @_)
438 0 0 unless my $imap = (shift())->imapClient
439 0 0 ref $_[0] ? :
446 0 0 unless @$msgs
447 0 0 unless my $imap = $self->imapClient
456 0 0 unless $line =~ /\(.*?UID\s+(\d+)/i
458 0 0 unless my $info = $msgs{$id}
460 0 0 if ($line =~ s/^[^(]* \( \s* //x)
471 0 0 if ($line =~ /^\s* (\S+) [ ]*$/x)
477 0 0 if $extra eq ")\n"
492 0 0 unless my $imap = $self->imapClient
494 0 0 if $date and not $date =~ /\D/
507 0 0 unless defined $folder
509 0 0 unless my $imap = (shift())->imapClient
515 0 0 unless my $imap = (shift())->imapClient
521 0 0 unless my $imap = (shift())->imapClient
532 0 0 if defined $imap