| line |
true |
false |
branch |
|
22
|
0 |
8 |
if $#_ == 1 |
|
24
|
0 |
8 |
if $time < 0 |
|
31
|
0 |
0 |
if $#_ == 1 |
|
34
|
0 |
0 |
if ($time < 0) { } |
|
46
|
0 |
8 |
if $#_ == 4 |
|
54
|
0 |
0 |
if $#_ == 1 |
|
57
|
0 |
0 |
if $time < 0 |
|
86
|
0 |
4 |
if ($content =~ s/^(\xff\xfe|\xfe\xff)//) { } |
|
|
0 |
4 |
elsif ($content =~ s/^\xef\xbb\xbf//) { } |
|
88
|
0 |
0 |
$1 eq "\377\376" ? : |
|
99
|
4 |
0 |
unless (defined $codec) |
|
103
|
267 |
8 |
unless $_->match($line) |
|
108
|
0 |
4 |
unless (defined $codec) |
|
116
|
0 |
4 |
if $@ or not defined $ret |
|
118
|
0 |
4 |
if (@{$$self{'from'};} == 0) |
|
122
|
0 |
4 |
if (@{$$self{'from'};} != @{$$self{'to'};}) |
|
123
|
0 |
0 |
if (@{$$self{'from'};} == @{$$self{'to'};} + 1) { } |
|
132
|
0 |
4 |
if (@{$$self{'from'};} != @{$$self{'text'};}) |
|
133
|
0 |
0 |
if (@{$$self{'from'};} == @{$$self{'text'};} + 1) { } |
|
148
|
0 |
4 |
unless $#_ |
|
151
|
0 |
4 |
unless exists $c{$codec} |
|
152
|
0 |
4 |
if defined $$self{'codec'} and $$self{'codec'} eq $codec |
|
153
|
3 |
1 |
if defined $$self{'codec'} |
|
159
|
0 |
0 |
unless $#_ |
|
160
|
0 |
0 |
if defined $_[1] and $_[1] <= 0 |
|
175
|
0 |
0 |
if $time =~ s/^-// |
|
176
|
0 |
0 |
if ($time =~ /^(?:(\d{1,2}):)?(?:(\d{1,2}):)?(\d{1,2})(?:[\,\.\:](\d{1,3}))?$/) { } |
|
|
0 |
0 |
elsif ($self and $$self{'codec'}) { } |
|
178
|
0 |
0 |
if defined $h and not defined $m |
|
179
|
0 |
0 |
unless defined $h |
|
180
|
0 |
0 |
unless defined $m |
|
181
|
0 |
0 |
unless defined $ms |
|
186
|
0 |
0 |
if defined $t |
|
200
|
0 |
1 |
if $a == 1 and $b == 0 |
|
201
|
1 |
0 |
unless defined $qfrom |
|
202
|
1 |
0 |
unless defined $qto |
|
208
|
0 |
1 |
if $$from[$i] > $qto or $$to[$i] < $qfrom |
|
217
|
2 |
0 |
if ($clear) { } |
|
245
|
0 |
1 |
unless defined $time_between |
|
265
|
1 |
1 |
if $$t[$i] <= $where |
|
271
|
1 |
0 |
if (defined $end and $end >= 0) |
|
276
|
1 |
0 |
if (defined $begin and $begin < $n) |
|
288
|
9 |
0 |
@{$$self{'to'};} ? : |
|
297
|
0 |
4 |
unless defined $content and @$content |
|
300
|
0 |
4 |
if (&Encode::is_utf8($content)) |
|
302
|
0 |
0 |
unless print $fh "\357\273\277" |
|
306
|
0 |
4 |
unless print $fh $content, "\n" |
|
309
|
0 |
4 |
$@ ? : |
|
360
|
2 |
5 |
if ($stage == 0) { } |
|
|
2 |
3 |
elsif ($stage == 1) { } |
|
|
2 |
1 |
elsif ($stage == 2) { } |
|
361
|
0 |
2 |
unless length $_ |
|
362
|
0 |
2 |
unless /^\d+$/ |
|
366
|
0 |
2 |
unless /^(\d\d):(\d\d):(\d\d)[.,](\d\d\d)\s*-->\s*(\d\d):(\d\d):(\d\d)[.,](\d\d\d)/ |
|
372
|
2 |
0 |
if (length $_) { } |
|
380
|
0 |
1 |
if (length $_) { } |
|
430
|
0 |
1 |
$$sub{'rate'} ? : |
|
437
|
0 |
2 |
unless (/^[{\[](\d+)[}\]][{\[](\d*)[}\]](.*)$/) |
|
442
|
2 |
0 |
length $2 ? : |
|
454
|
0 |
1 |
$$sub{'rate'} ? : |
|
481
|
54 |
1 |
unless $_[1] =~ /^\[(SUBTITLE|COLF)\]/i |
|
515
|
13 |
4 |
if ($read_header) { } |
|
516
|
1 |
12 |
if (/^(\d\d):(\d\d):(\d\d)\.(\d\d)\,(\d\d):(\d\d):(\d\d)\.(\d\d)/) |
|
523
|
3 |
2 |
if ($state == 0) { } |
|
524
|
1 |
2 |
unless length $_ |
|
525
|
0 |
2 |
unless /^(\d\d):(\d\d):(\d\d)\.(\d\d)\,(\d\d):(\d\d):(\d\d)\.(\d\d)/ |
|
549
|
0 |
1 |
if ($$sub{'sub2'}{'header'}) { } |
|
633
|
19 |
10 |
if ($read_header) { } |
|
|
1 |
9 |
elsif ($read_footer) { } |
|
634
|
1 |
18 |
if (//i) |
|
641
|
1 |
8 |
if (m[]) |
|
654
|
8 |
5 |
if (defined $2 and length $2) { } |
|
|
4 |
1 |
elsif (defined $3 and length $3) { } |
|
657
|
4 |
4 |
if (/^sync\s+start\s*=\s*(\d+)/i) { } |
|
|
4 |
0 |
elsif (/^p\s+class\s*\=\s*(\S+)/i) { } |
|
|
0 |
0 |
elsif (/^\s*br\s*/i) { } |
|
658
|
1 |
3 |
unless defined $$sub{'smi'}{'s1gap'} |
|
661
|
0 |
4 |
if $s < $sync |
|
663
|
3 |
1 |
unless ($line =~ /^[\n\s]*$/s) |
|
672
|
1 |
3 |
unless defined $$sub{'smi'}{'s2gap'} |
|
674
|
1 |
3 |
unless defined $$sub{'smi'}{'class'} |
|
702
|
0 |
1 |
defined $$sub{'smi'}{'class'} ? : |
|
703
|
0 |
1 |
if ($$sub{'smi'}{'header'}) { } |
|
739
|
2 |
0 |
if $i == $n - 1 or int $$from[$i + 1] * 1000 + 0.5 != $t |
|
745
|
0 |
1 |
if ($$sub{'smi'}{'footer'}) { } |
|
855
|
0 |
0 |
if (/^\s*timestamp\:\s*(\d\d)\:(\d\d)\:(\d\d)\:(\d+).*?filepos\:\s*(.*)$/) { } |
|
867
|
0 |
0 |
if @$from |
|
878
|
0 |
0 |
unless $$sub{'idx'}{'comments'} |