blib/lib/Test/Reporter.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 77 | 19.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
131 | 0 | 14 | 0 | defined $$self{'_grade'} and defined $$self{'_distribution'} |
204 | 12 | 2 | 0 | @args and $transport eq 'Mail::Send' |
14 | 0 | 0 | @args and $transport eq 'Mail::Send' and ref $args[0] eq 'ARRAY' | |
225 | 0 | 0 | 0 | exists $args{'suffix'} and defined $args{'suffix'} |
0 | 0 | 0 | exists $args{'suffix'} and defined $args{'suffix'} and length $args{'suffix'} | |
387 | 0 | 0 | 3 | $$self{'_from'} and $$self{'_subject'} |
444 | 0 | 0 | 10 | defined $$self{'_from'} and $$self{'_from'} |
653 | 0 | 0 | 0 | defined $config and open my $cf, '<', $config |
665 | 0 | 0 | 0 | $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
668 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
670 | 0 | 0 | 0 | defined $domain and not $domain =~ /\$/ |
677 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
678 | 0 | 0 | 0 | defined $domain and $domain |
697 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
698 | 0 | 0 | 0 | defined $domain and $domain |
710 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
line | l | !l | condition |
---|---|---|---|
268 | 1 | 0 | $self->transport || 'Null' |
299 | 3 | 0 | $$self{'_distfile'} || '' |
602 | 0 | 0 | $ENV{'VISUAL'} || $ENV{'EDITOR'} || $ENV{'EDIT'} || $^O eq 'VMS' && 'edit/tpu' || $^O eq 'MSWin32' && 'notepad' || 'vi' |
728 | 0 | 0 | $ENV{'USER'} || $ENV{'LOGNAME'} || eval { do { getpwuid $> } } || 'postmaster' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
24 | 0 | 12 | 0 | ref $type || $type |
88 | 0 | 11 | 0 | $params{'address'} || $self->address |
298 | 1 | 2 | 0 | $self->dir || cwd() |
496 | 0 | 0 | 15 | $^O eq 'MSWin32' || $^O eq 'VMS' |
527 | 1 | 0 | 12 | shift() || qq["$^X"] |
728 | 0 | 0 | 0 | $mailaddress ||= $ENV{'USER'} || $ENV{'LOGNAME'} || eval { do { getpwuid $> } } || 'postmaster' |
748 | 0 | 0 | 0 | eval { do { (split(/,/, (getpwuid $>)[6], 0))[0] } } || $ENV{'QMAILNAME'} || $ENV{'REALNAME'} || $ENV{'USER'} |