Condition Coverage

blib/lib/Mail/Ezmlm.pm
Criterion Covered Total %
condition 0 200 0.0


and 2 conditions

line l !l condition
108 0 0 $self->_seterror(-1, 'must define -dir in a make()') and return 0
109 0 0 $self->_seterror(-1, 'must define -qmail in a make()') and return 0
110 0 0 $self->_seterror(-1, 'must define -name in a make()') and return 0
136 0 0 $self->_seterror(-1, '-user must match virtual host user in make()') and return 0
139 0 0 $self->_seterror(-1, 'unable to read inlocal in make()') and return 0
154 0 0 $self->_seterror(-1, 'nothing to update()') and return 0
171 0 0 $self->_seterror(-1, 'must setlist() before you update()') and return 0
173 0 0 $self->_seterror(-1, "$$self{'LIST_NAME'} does not appear to be a valid list in update()") and return 0
176 0 0 $self->_seterror(-1, 'unable to read outhost in update()') and return 0
182 0 0 $self->_seterror(-1, 'unable to read inlocal in update()') and return 0
188 0 0 $self->_seterror($?) and return undef
193 0 0 $self->_seterror(-1, 'unable to write inlocal in update()') and return 0
230 0 0 $self->_seterror(-1, 'unable to read configuration in getconfig()') and return undef
276 0 0 $self->_seterror(-1, 'must setlist() before returning subscribers()') and return undef
278 0 0 $self->_seterror(-1, "$part part of $$self{'LIST_NAME'} does not appear to exist in subscribers()") and return undef
296 0 0 $self->_seterror(-1, 'sub() must be called with at least one address') and return 0
299 0 0 $self->_seterror(-1, 'must setlist() before sub()') and return 0
302 0 0 $self->_seterror(-1, "$part of $$self{'LIST_NAME'} does not appear to exist in sub()") and return 0
305 0 0 $self->_seterror($?) and return undef
311 0 0 $self->_seterror($?) and return undef
322 0 0 $self->_seterror(-1, 'unsub() must be called with at least one address') and return 0
325 0 0 $self->_seterror(-1, 'must setlist() before unsub()') and return 0
328 0 0 $self->_seterror(-1, "$part of $$self{'LIST_NAME'} does not appear to exist in unsub()") and return 0
331 0 0 $self->_seterror($?) and return undef
337 0 0 $self->_seterror($?) and return undef
350 0 0 $self->_seterror(-1, 'must setlist() before issub()') and return 0
355 0 0 $self->_seterror(-1, "$part of $$self{'LIST_NAME'} does not appear to exist in issub()") and return 0
375 0 0 $self->_seterror(-1, 'must setlist() before ismodpost()') and return 0
384 0 0 $self->_seterror(-1, 'must setlist() before ismodsub()') and return 0
393 0 0 $self->_seterror(-1, 'must setlist() before isremote()') and return 0
402 0 0 $self->_seterror(-1, 'must setlist() before isdeny()') and return 0
411 0 0 $self->_seterror(-1, 'must setlist() before isallow()') and return 0
420 0 0 $self->_seterror(-1, 'must setlist() before isdigest()') and return 0
500 0 0 $self->_seterror(-1, 'could not retrieve configuration directory') and return 0
693 0 0 $self->_seterror(-1, "could not remove customized text file ($textfile)") and return 0
772 0 0 $self->_seterror(-1, 'MySQL must be compiled into Ezmlm for createsql() to work') and return 0
773 0 0 $self->_seterror(-1, 'must setlist() before isdigest()') and return 0
780 0 0 $self->_seterror(-1, 'error in list configuration while trying createsql()') and return 0
784 0 0 $self->_seterror($?) and return undef
875 0 0 $self->_seterror($?) and return undef
876 0 0 $self->_seterror($?) and return undef
918 0 0 $self->_seterror($?) and return undef
932 0 0 $self->_seterror($?) and return undef

and 3 conditions

line !l l&&!r l&&r condition
82 0 0 0 defined $list and $list
277 0 0 0 defined $part and $part
301 0 0 0 defined $part and $part
327 0 0 0 defined $part and $part
354 0 0 0 defined $part and $part
433 0 0 0 not -e "$filename" and get_version() >= 5
0 0 0 not -e "$filename" and get_version() >= 5 and $part ne 'conf-etc'
0 0 0 not -e "$filename" and get_version() >= 5 and $part ne 'conf-etc' and $part ne 'conf-lang'
471 0 0 0 get_version() >= 5 and ref $self
0 0 0 get_version() >= 5 and ref $self and -e "$$self{'LIST_NAME'}/conf-etc"
746 0 0 0 $idx =~ /^(\d)/ and $1 >= 7
0 0 0 $idx =~ /^(\d)/ and $1 == 6
0 0 0 $idx =~ /^(\d)\.(\d)/ and $1 >= 5
0 0 0 $idx =~ /^(\d)\.(\d)/ and $1 >= 5 and $2 == 1
0 0 0 $idx =~ /^(\d)/ and $1 >= 5
0 0 0 $idx =~ /^0\.(\d)/ and $1 >= 0
772 0 0 0 defined $Mail::Ezmlm::MYSQL_BASE and $Mail::Ezmlm::MYSQL_BASE
780 0 0 0 defined $host and defined $port
0 0 0 defined $host and defined $port and defined $user
0 0 0 defined $host and defined $port and defined $user and defined $password
0 0 0 defined $host and defined $port and defined $user and defined $password and defined $database
0 0 0 defined $host and defined $port and defined $user and defined $password and defined $database and defined $table
801 0 0 0 defined $no and $no
854 0 0 0 $opt_num == 5 and $temp =~ m[^/]
897 0 0 0 not $options =~ /m/ and $editor =~ /ezmlm-issubn \'/

or 2 conditions

line l !l condition
81 0 0 ref $class || $class || 'Mail::Ezmlm'
804 0 0 $mesg || 'An undefined error occoured'
807 0 0 $! || $mesg || 'An undefined error occoured in a system() call'

or 3 conditions

line l !l&&r !l&&!r condition
173 0 0 0 -e "$$self{'LIST_NAME'}/config" or -e "$$self{'LIST_NAME'}/flags"
297 0 0 0 $#addresses < 1 or $addresses[$#addresses] =~ /\@/
323 0 0 0 $#addresses < 1 or $addresses[$#addresses] =~ /\@/
348 0 0 0 $#addresses < 1 or $addresses[$#addresses] =~ /\@/
541 0 0 0 $lang eq 'default' or $lang eq ''
573 0 0 0 $charset eq $default_charset or not $charset =~ /\S/
888 0 0 0 -e "$$self{'LIST_NAME'}/blacklist" or -e "$$self{'LIST_NAME'}/deny"
897 0 0 0 not $options =~ /m/ and $editor =~ /ezmlm-issubn \'/ or $editor =~ /ezmlm-gate/
899 0 0 0 -e "$$self{'LIST_NAME'}/extra" or -e "$$self{'LIST_NAME'}/allow"
904 0 0 0 'cevz' =~ /$i/ or $options =~ /$i/i
932 0 0 0 open GETHOST, "<$Mail::Ezmlm::QMAIL_BASE/control/defaultdomain" or open GETHOST, "<$Mail::Ezmlm::QMAIL_BASE/control/me"