Branch Coverage

blib/lib/Video/CPL.pm

Criterion	Covered	Total	%
branch	51	280	18.2

line	true	false	branch
103	0	2	$parms{'xsi:noNamespaceSchemaLocation'} || $ret->{'xVersionCPL'} eq '0.7.0' ? :
106	1	1	if $parms{'initfromctv'}
109	17	0	if $q =~ /xVersionCPL|videoSource|videoWidth|videoHeight|backgroundHTML|xWebServiceLoc|xUniqueID|xProgLevelDir|loggingService|html|ref|xsi:noNamespaceSchemaLocation|xmlns:xsi|xProgLevelData|skinButtons|webViewLayout|videoViewLayout|frameWidth|frameHeight|videoX|videoY|youtubeID|initfromctv/
114	16	20	if defined $parms{$q}
121	1	1	unless (defined $parms{'initfromctv'})
126	0	2	if (exists $parms{'htmlurl'}) { }
	0	2	elsif (defined $ret->{'html'}) { }
147	0	0	if length $mon == 1
148	0	0	if length $mday == 1
154	0	0	if $obj->{'filefixed'}
156	0	0	unless exists $obj->{'htmlrel'}
158	0	0	unless -d $dir
159	0	0	unless -d $dir
187	0	0	if $obj->{'noref'}
189	0	0	if ($obj->{'isdyn'}) { }
192	0	0	unless $obj->{'filefixed'}
207	0	0	if $obj->{'noref'}
209	0	0	if ($obj->{'isdyn'}) { }
212	0	0	unless $obj->{'filefixed'}
220	0	0	if $x =~ m[^(.*)/]
227	0	0	if $x =~ m[^.*/(.*)$]
234	0	0	if ($from and $from != $obj) { }
235	0	0	if ($obj->{'noref'})
262	0	2	if @_
270	0	2	if @_
278	0	2	if @_
286	0	2	if @_
294	0	2	if @_
302	0	2	if @_
310	0	2	if @_
318	0	2	if @_
326	0	2	if @_
334	0	2	if @_
342	0	2	if @_
350	0	2	if @_
358	0	2	if @_
366	0	2	if @_
374	0	2	if @_
382	0	2	if @_
390	0	2	if @_
403	0	0	if (@_) { }
404	0	0	if ($obj->{'video'}) { }
408	0	0	if $#a != $#new and $#a != 2 || $#new != 2
422	0	0	unless $obj->{'video'}
470	2	0	if defined $d{'MediaProgram'}[0]{$q}
473	17	1	if defined $d{'MediaProgram'}[0]{'progLevelMetadata'}[0]{$q}
476	0	1	if defined $d{'MediaProgram'}[0]{'progLevelMetadata'}[0]{$q}
480	1	0	if (defined $d{'MediaProgram'}[0]{'annotations'})
489	1	0	if (defined $d{'MediaProgram'}[0]{'layouts'})
498	1	0	if (defined $d{'MediaProgram'}[0]{'cuePoints'})
505	0	1	if (defined $d{'MediaProgram'}[0]{'webPoints'})
540	0	1	unless defined $cue->time
543	0	1	if ($#a > 0)
546	0	0	if ($last->time <= $nexttolast->time)
556	0	0	unless exists $obj->{'cuePoints'}
567	0	0	if ($cue->parent == $obj)
587	0	0	unless exists $p{'target'}
588	0	0	unless defined $p{'target'}
591	0	0	if (ref $t eq 'ARRAY') { }
598	0	0	if (defined $p{'backgroundPicLoc'})
602	0	0	if (defined $p{'headerText'})
606	0	0	if (defined $p{'operation'})
613	0	0	if (ref $q eq 'Video::CPL::Cue') { }
	0	0	elsif (ref $q eq 'Video::CPL::Annotation') { }
632	0	0	unless defined $p{'forever'} or defined $p{'balloonText'} or defined $p{'picLoc'} or defined $p{'picOverLoc'}
634	0	0	if (defined $p{'forever'})
638	0	0	if (defined $p{'balloonText'})
642	0	0	if (defined $p{'picLoc'})
646	0	0	if (defined $p{'picOverLoc'})
662	0	0	unless defined $parms{'time'}
663	0	0	unless defined $parms{'name'}
665	0	0	if defined $parms{'target'}
666	0	0	if defined $parms{'picLoc'} or defined $parms{'picOverLoc'} or defined $parms{'balloonText'}
718	0	64	unless defined $obj->{'layouts'}
721	64	0	if $l->name eq $name
737	0	0	if $a->story
751	0	0	if (defined $obj->{'cuePoints'}[$num])
766	0	0	if (defined $obj->{'webPoints'}[$num])
801	0	0	if (defined $obj->{'cuePoints'}[0])
815	0	0	if $#a > -1
830	0	0	if $cue->{'parent'} and $cue->{'parent'} ne $obj
841	0	0	unless exists $obj->{'webPoints'}
873	0	0	if defined $obj->{'annotations'}
890	0	0	unless defined $parms{'name'}
891	0	0	if defined $parms{'picLoc'} or defined $parms{'picOverLoc'} or defined $parms{'balloonText'}
909	0	0	if (defined $parms{'dest'} and not defined $parms{'target'})
913	0	0	if (defined $parms{'tl'} and not defined $parms{'target'})
917	0	0	unless defined $parms{'zeroLen'}
966	0	56	unless $name
967	56	0	if (defined $obj->{'cuePoints'})
970	56	0	if $q->name eq $name
985	0	0	if (defined $obj->{'webPoints'})
988	0	0	if $q->name eq $name
1003	0	0	unless defined $obj->{'cuePoints'}
1006	0	0	if $q->time eq $time
1021	0	44	unless defined $obj->{'annotations'}
1025	44	0	if $q->name eq $name
1037	0	0	unless defined $parms{'zeroLen'}
1048	0	0	unless defined $parms{'zeroLen'}
1061	1	0	unless defined $parms{'parent'}
1075	0	0	unless defined $parms{'parent'}
1105	0	0	if defined $parms{'dest'}
1107	0	0	unless defined $parms{'parent'}
1121	0	0	unless defined $parms{'parent'}
1138	0	0	unless defined $parms{'parent'}
1166	2	0	if defined $obj->{$q}
1173	17	1	if defined $obj->{$q}
1175	0	1	if (exists $obj->{'video'}) { }
1190	3	1	if ($obj->{$a})
1225	0	0	unless $obj->{'filefixed'}
1277	0	0	unless $parms{'media'}
1282	0	0	if exists $obj->{'videoWidth'}
1283	0	0	if exists $obj->{'frameWidth'}
1284	0	0	if exists $parms{'width'}
1286	0	0	if exists $obj->{'videoHeight'}
1287	0	0	if exists $obj->{'frameHeight'}
1288	0	0	if exists $parms{'height'}
1290	0	0	if not $media and exists $obj->{'ctvfilename'}
1291	0	0	unless $media
1294	0	0	$mergedstyle ? :
1295	0	0	unless $mergedstyle
1298	0	0	exists $parms{'align'} ? :
1299	0	0	exists $parms{'play'} ? :
1300	0	0	exists $parms{'quality'} ? :
1301	0	0	exists $parms{'allowfullscreen'} ? :
1302	0	0	exists $parms{'allowScriptAccess'} ? :
1303	0	0	exists $parms{'type'} ? :
1304	0	0	exists $parms{'pluginspage'} ? :
1305	0	0	exists $parms{'bgcolor'} ? :
1324	0	0	if ($p{'local'}) { }
	0	0	elsif ($p{'dir'}) { }
1325	0	0	if -r $p{'local'} and -s $p{'local'} > 200000
1326	0	0	if getfile("$SRC/CTVWebPlayerS.swf", $p{'local'}, 200000)
1340	0	0	unless -d $p{'dir'}
1342	0	0	if ($x =~ m[(.*)/])
1344	0	0	unless -d "$p{'dir'}/$prefix"
1356	0	0	if (length $fil < $minsize)
1360	0	0	if (open FSWF, ">$file") { }
1364	0	0	if ($actual != length $fil)
1384	0	0	unless $x =~ m[http://www.youtube.com/watch\?v=([A-Za-z0-9\-\_]{11})]