Condition Coverage

blib/lib/App/Nopaste.pm
Criterion Covered Total %
condition 3 13 23.0


and 2 conditions

line l !l condition
33 0 0 defined $ENV{'NOPASTE_SERVICES'} && [split(' ', $ENV{'NOPASTE_SERVICES'}, 0)]

and 3 conditions

line !l l&&!r l&&r condition
40 0 0 2 ref $args{'services'} eq 'ARRAY' and @{$args{'services'};}
72 2 0 0 $using_default and $service->forbid_in_default

or 2 conditions

line l !l condition
55 0 2 $args{'error_handler'} ||= sub { my($msg, $srv) = @_; $msg =~ s/\n*$/\n/; warn "${srv}: $msg"; }

or 3 conditions

line l !l&&r !l&&!r condition
36 0 0 0 $ENV{'NOPASTE_NICK'} || $ENV{'USER'}