File Coverage

blib/lib/WWW/SVT/Play/Video/Stream/HLS.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package WWW::SVT::Play::Video::Stream::HLS;
2              
3             # Copyright (c) 2012 - Olof Johansson
4             # All rights reserved.
5             #
6             # This program is free software; you can redistribute it and/or
7             # modify it under the same terms as Perl itself.
8              
9             =head1 NAME
10              
11             WWW::SVT::Play::Video::Stream::HLS, HLS class representing a stream
12              
13             =head1 SYNOPSIS
14              
15             use WWW::SVT::Play::Video;
16              
17             my $svtp = WWW::SVT::Play::Video->new($url);
18             my $stream = $svtp->stream(protocol => 'HDS');
19              
20             =head1 DESCRIPTION
21              
22             =cut
23              
24 1     1   8 use warnings FATAL => 'all';
  1         44  
  1         62  
25 1     1   7 use strict;
  1         2  
  1         35  
26 1     1   7 use parent 'WWW::SVT::Play::Video::Stream';
  1         3  
  1         10  
27              
28             our $VERSION = 0.12;
29 1     1   106 use Carp;
  1         2  
  1         109  
30              
31             =head2 is_hls
32              
33             Is stream using HLS protocol? Yes.
34              
35             =cut
36              
37 0     0 1   sub is_hls { 1 }
38              
39             #use Media::HLS::Client;
40              
41             =head1 COPYRIGHT
42              
43             Copyright (c) 2012 - Olof Johansson
44             All rights reserved.
45              
46             This program is free software; you can redistribute it and/or
47             modify it under the same terms as Perl itself.
48              
49             =cut
50              
51             1;