Branch Coverage

blib/lib/StreamFinder/Vimeo.pm
Criterion Covered Total %
branch 0 150 0.0


line true false branch
330 0 0 unless $url
331 0 0 if $url =~ /\bplayer\.vimeo\b/
334 0 0 if (open IN, $p)
338 0 0 if /^\s*\#/o
348 0 0 if defined $uops{$i}
351 0 0 unless defined $uops{'agent'}
352 0 0 unless defined $uops{'timeout'}
353 0 0 if defined $uops{'debug'}
356 0 0 if ($_[0] =~ /^\-?debug$/o) { }
0 0 elsif ($_[0] =~ /^\-?quality$/o) { }
358 0 0 defined $_[0] && $_[0] =~ /^[0-9]$/ ? :
361 0 0 defined $_[0] ? :
365 0 0 if $DEBUG
366 0 0 if ($url =~ /^https?\:/) { }
367 0 0 if $url =~ m[\/([^\/]+)\/?$]
373 0 0 if $DEBUG
389 0 0 if ($response->is_success) { }
392 0 0 if $DEBUG
394 0 0 unless ($no_wget)
395 0 0 if $DEBUG
400 0 0 $html =~ /\([^\<]+)/ ? :
401 0 0 $html =~ /background\:\s+url\s*\(([^\)]+)/ ? :
402 0 0 if ($html =~ /\"progressive\"\:(\[\{[^\]]+\])/s)
408 0 0 defined $uops{'vimeo_quality'} ? :
409 0 0 $quality =~ s/^([\<\=\>])// ? :
410 0 0 if $DEBUG
415 0 0 if not $quality or $i->{'quality'} == $quality or $direction eq '<' and $i->{'quality'} <= $quality or $direction eq '>' and $i->{'quality'} >= $quality
418 0 0 if ($cnt)
420 0 0 if $DEBUG
424 0 0 if ($cnt)
425 0 0 if $html =~ s/\"owner\"\:\{.*?\"name\"\:\"([^\"]+)\"/STREAMFINDERMARK/s
426 0 0 if $html =~ s/STREAMFINDERMARK.*?\"url\"\:\"([^\"]+)\"//s
432 0 0 unless ($self->{'cnt'} > 0)
436 0 0 unless $url2fetch =~ /^https?\:/
437 0 0 if $DEBUG
440 0 0 defined $uops{'format'} ? :
0 0 defined $uops{'youtube-dl-args'} ? :
445 0 0 if (defined $uops{'userid'} and defined $uops{'userpw'}) { }
452 0 0 if $DEBUG
454 0 0 unless scalar @ytdldata > 0
456 0 0 unless ($ytdldata[0] =~ m[^https?\:\/\/])
463 0 0 unless m[^https?\:\/\/]o
464 0 0 if ($more) { }
471 0 0 if $self->{'cnt'} > 1
473 0 0 unless ($try or $self->{'cnt'} > 0)
476 0 0 if $1
479 0 0 if $DEBUG
480 0 0 if $DEBUG
481 0 0 if ($self->{'description'} =~ /\w/)
490 0 0 if $self->{'imageurl'}
492 0 0 $self->{'cnt'} > 0 ? :
493 0 0 if $DEBUG
504 0 0 wantarray ? :
510 0 0 defined $_[0] ? :
511 0 0 $arglist =~ /\b\-?random\b/ ? :
512 0 0 if ($arglist =~ /\b\-?noplaylists\b/ and do { $$self{'streams'} }->[$idx] =~ /\.(pls|m3u8?)$/i)
515 0 0 if $DEBUG
522 0 0 if ($response->is_success) { }
525 0 0 if $DEBUG
527 0 0 unless ($no_wget)
528 0 0 if $DEBUG
534 0 0 if ($plType =~ /pls/) { }
537 0 0 if ($line =~ /^\s*File\d+\=(.+)$/) { }
0 0 elsif ($line =~ /^\s*Title\d+\=(.+)$/) { }
546 0 0 if $DEBUG
550 0 0 if ($line =~ /^\s*([^#].+)$/)
554 0 0 $urlpart =~ /https?\:/ ? :
558 0 0 if $DEBUG
586 0 0 if defined $_[0] and $_[0] =~ /^\-?(?:long|desc)/i
599 0 0 unless $self->{'iconurl'}
606 0 0 if ($response->is_success) { }
609 0 0 if $DEBUG
611 0 0 unless ($no_wget)
612 0 0 if $DEBUG
617 0 0 unless $art_image