Branch Coverage

blib/lib/Mail/Postfixadmin.pm
Criterion Covered Total %
branch 0 226 0.0


line true false branch
89 0 0 unless exists $conf{$_}
122 0 0 if ($regex)
217 0 0 if ($domain =~ /.+/) { }
250 0 0 if ($domain) { }
282 0 0 if ($domain eq '')
285 0 0 if ($self->domainIsAlias($domain) > 0)
293 0 0 if ($count > 0) { }
316 0 0 if ($user eq '')
320 0 0 if ($self->userIsAlias($user))
328 0 0 if ($count > 0) { }
350 0 0 if $domain eq ''
357 0 0 if ($count > 0) { }
377 0 0 if ($domain eq '')
380 0 0 unless ($self->domainIsAlias($domain))
406 0 0 if ($user eq '')
412 0 0 if ($count > 0) { }
435 0 0 if ($user eq '')
467 0 0 if $user eq ''
468 0 0 unless $self->userExists($user)
505 0 0 if $domain eq ''
506 0 0 unless $self->domainExists($domain)
571 0 0 if ($user eq '')
592 0 0 if ($user eq '')
600 0 0 if ($$self{'storeCleartextPassword'} > 0)
603 0 0 if ($$self{'storeGPGPassword'} > 0)
655 0 0 unless $domain =~ /.+/
657 0 0 if ($domain eq '')
661 0 0 if ($self->domainExists($domain))
666 0 0 unless exists $opts{'modified'}
667 0 0 unless exists $opts{'created'}
668 0 0 unless exists $opts{'active'}
669 0 0 unless exists $opts{'quota'}
681 0 0 if ($self->domainExists($domain)) { }
725 0 0 if $opts{'username'} eq ''
729 0 0 if ($self->userExists($user))
733 0 0 if ($opts{'password_crypt'}) { }
0 0 elsif ($opts{'password_clear'}) { }
739 0 0 unless (exists $opts{'maildir'})
742 0 0 unless (exists $opts{'local_part'})
743 0 0 if ($opts{'username'} =~ /^(.+)\@/)
747 0 0 unless (exists $opts{'domain'})
748 0 0 if ($opts{'username'} =~ /\@(.+)$/)
752 0 0 unless (exists $opts{'created'})
755 0 0 unless (exists $opts{'modified'})
759 0 0 unless (/_(clear|cryp)$/)
764 0 0 if ($opts{'username'} eq '')
778 0 0 if ($self->userExists($user)) { }
815 0 0 unless $domain =~ /.+/
816 0 0 unless $target =~ /.+/
818 0 0 if ($self->domainIsAlias($domain))
823 0 0 unless ($self->domainExists('domain', $domain))
830 0 0 if (exists $opts{'created'}) { }
837 0 0 if (exists $opts{'modified'}) { }
842 0 0 if (exists $opts{'active'})
849 0 0 if ($self->domainExists($domain)) { }
910 0 0 if ($user eq '')
913 0 0 unless (exists $opts{'target'})
924 0 0 if ($self->userIsAlias($user))
927 0 0 unless (exists $opts{'domain'})
928 0 0 if ($user =~ /\@(.+)$/) { }
941 0 0 if (exists $opts{'created'}) { }
948 0 0 if (exists $opts{'modified'}) { }
954 0 0 if (exists $opts{'active'})
962 0 0 if ($self->userIsAlias($user)) { }
984 0 0 if ($user eq '')
987 0 0 unless ($self->userExists($user))
996 0 0 if ($self->userExists($user)) { }
1016 0 0 if $domain eq ''
1018 0 0 unless ($self->domainExists($domain) > 0)
1026 0 0 if ($self->domainIsAlias($domain))
1032 0 0 if ($self->domainExists($domain)) { }
1054 0 0 if ($domain eq '')
1057 0 0 unless ($self->domainIsAlias($domain))
1076 0 0 if ($user eq '')
1079 0 0 unless ($self->userIsAlias($user))
1110 0 0 if ($domain =~ /.+/) { }
1128 0 0 if ($$_{'domain'} =~ /^ALL$/) { }
1130 0 0 unless $domain =~ /^ALL$/
1173 0 0 unless $opts{'username'}
1174 0 0 unless $opts{'domain'}
1175 0 0 if ($opts{'password_crypt'}) { }
0 0 elsif ($opts{'password_clear'}) { }
1182 0 0 if (exists $opts{'domains'})
1185 0 0 if (exists $opts{'domain'})
1190 0 0 if ($opts{'password'})
1200 0 0 if (@usernameIsAlreadyAdmin[0] > 0) { }
1239 0 0 if $length =~ /^$/
1240 0 0 unless $length =~ /^\s*\d+\.?\d*\s*$/
1350 0 0 if (exists $$p{'maildir_name_hook'} and not $$p{'maildir_name_hook'} =~ /NO/) { }
0 0 elsif ($$p{'domain_path'} eq 'YES') { }
1353 0 0 if ($$p{'domain_in_mailbox'} eq 'YES') { }
1379 0 0 if -r $file
1393 0 0 unless $file
1394 0 0 unless open my $fh, '<', $file
1397 0 0 if (/^\s*\$CONF\['([^']+)'\]\s*=\s*'?([^']*)'?\s*;\s*$/)
1537 0 0 if (&_fieldExists($$self{'_dbi'}, $dbName, $tableName, $fieldName))
1557 0 0 if (not $dbi) { }
1582 0 0 unless $opts{'table'}
1584 0 0 unless $table
1586 0 0 unless $opts{'data'}
1607 0 0 unless $sth->execute(@values)
1653 0 0 if (exists $$self{'_tables'}{$table}) { }
1660 0 0 if ($field =~ /^\*$/) { }
1663 0 0 unless (exists $$self{'_fields'}{$table}{$field})
1670 0 0 if (exists $opts{'count'}) { }
1677 0 0 if ($opts{'equals'} > 0) { }
0 0 elsif ($opts{'like'} > 0) { }
1680 0 0 if ($opts{'equals_andor'} =~ /^or$/i) { }
1690 0 0 if (ref $opts{'equals'}[0] eq '')
1697 0 0 if (exists $$self{'_fields'}{$table}{$field}) { }
1707 0 0 if (exists $$self{'_fields'}{$table}{$field}) { }
1717 0 0 unless $sth->execute
1754 0 0 if $count > 0