Condition Coverage

lib/Module/Notify.pm
Criterion Covered Total %
condition 4 4 100.0


or 2 conditions

line l !l condition
49 1 2 $NOTIFICATIONS{$module} ||= []
104 2 1 $hook ||= sub { my $self = shift(); return unless $class->_has_notifications('filename', $_[0]); @INC = grep(($_ != $self), @INC); my $r = eval "require '$_[0]'"; unshift @INC, $self; $r ? $class->_run_notifications('filename', $_[0]) : croak(_clean_err($@)); my(@lines) = ($r, undef); return sub { $_ = shift @lines; not !@lines; } ; }