blib/lib/Test/Reporter.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 77 | 19.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
130 | 0 | 14 | 0 | defined $$self{'_grade'} and defined $$self{'_distribution'} |
203 | 12 | 2 | 0 | @args and $transport eq 'Mail::Send' |
14 | 0 | 0 | @args and $transport eq 'Mail::Send' and ref $args[0] eq 'ARRAY' | |
224 | 0 | 0 | 0 | exists $args{'suffix'} and defined $args{'suffix'} |
0 | 0 | 0 | exists $args{'suffix'} and defined $args{'suffix'} and length $args{'suffix'} | |
386 | 0 | 0 | 3 | $$self{'_from'} and $$self{'_subject'} |
443 | 0 | 0 | 10 | defined $$self{'_from'} and $$self{'_from'} |
652 | 0 | 0 | 0 | defined $config and open my $cf, '<', $config |
664 | 0 | 0 | 0 | $domain and $domain =~ /([A-Za-z0-9](?:[\.\-A-Za-z0-9]+))/ |
667 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
669 | 0 | 0 | 0 | defined $domain and not $domain =~ /\$/ |
676 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
677 | 0 | 0 | 0 | defined $domain and $domain |
696 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
697 | 0 | 0 | 0 | defined $domain and $domain |
709 | 0 | 0 | 0 | $^O eq 'darwin' and $domain =~ /\.local$/ |
line | l | !l | condition |
---|---|---|---|
267 | 1 | 0 | $self->transport || 'Null' |
298 | 3 | 0 | $$self{'_distfile'} || '' |
601 | 0 | 0 | $ENV{'VISUAL'} || $ENV{'EDITOR'} || $ENV{'EDIT'} || $^O eq 'VMS' && 'edit/tpu' || $^O eq 'MSWin32' && 'notepad' || 'vi' |
727 | 0 | 0 | $ENV{'USER'} || $ENV{'LOGNAME'} || eval { do { getpwuid $> } } || 'postmaster' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
23 | 0 | 12 | 0 | ref $type || $type |
87 | 0 | 11 | 0 | $params{'address'} || $self->address |
297 | 1 | 2 | 0 | $self->dir || cwd() |
495 | 0 | 0 | 15 | $^O eq 'MSWin32' || $^O eq 'VMS' |
526 | 1 | 0 | 12 | shift() || $^X |
727 | 0 | 0 | 0 | $mailaddress ||= $ENV{'USER'} || $ENV{'LOGNAME'} || eval { do { getpwuid $> } } || 'postmaster' |
747 | 0 | 0 | 0 | eval { do { (split(/,/, (getpwuid $>)[6], 0))[0] } } || $ENV{'QMAILNAME'} || $ENV{'REALNAME'} || $ENV{'USER'} |