Condition Coverage

blib/lib/Test/VCR/LWP.pm
Criterion Covered Total %
condition 4 6 66.6


or 3 conditions

line l !l&&r !l&&!r condition
171 4 7 0 $$self{'requests'} ||= do { local $/; die "Couldn't open $$self{'tape'}: $!\n" unless open my $fh, '<', $$self{'tape'}; my $perl = <$fh>; die "Couldn't close $$self{'tape'}: $!\n" unless close $fh; our $VAR1; eval "$perl"; die $@ if $@; $VAR1 }
233 6 2 0 $args{'tape'} ||= do { my $caller = (caller 1)[3]; $caller =~ s/^.*:://; if ($caller eq '__ANON__') { croak('tape name must be supplied if called from anonymous subroutine'); } ; 'File::Spec'->catfile($FindBin::Bin, "$caller.tape") }