Branch Coverage

blib/lib/Video/Subtitle/SRT.pm
Criterion Covered Total %
branch 12 30 40.0


line true false branch
27 0 0 if @_
35 0 2 if (ref $stuff and UNIVERSAL::isa($stuff, 'IO::Handle') || ref $stuff eq 'GLOB') { }
39 0 2 unless open my $fh, '<', $stuff
41 0 2 unless close $fh
55 0 2 if ($chunk[-1] eq '')
60 2 0 if ($$self{'callback'})
64 0 2 if $@ and $$self{'debug'}
65 2 0 if $@
74 0 2 if (@$chunk_ref < 3)
79 0 2 unless ($$chunk_ref[0] =~ /^\d+$/)
85 0 2 unless ($$chunk_ref[1] =~ /^$time_re --> $time_re$/)
99 0 0 unless ($time =~ /^(\d\d):(\d\d):(\d\d)(?:,(\d*))?$/)
126 1 4 unless ($$data{$field})
141 0 0 unless (defined $$object{'number'})
153 0 0 if ($file_name) { }