File Coverage

blib/lib/WWW/SVT/Play/Video/Stream/HDS.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::HDS;
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::HDS, HDS 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   6 use warnings FATAL => 'all';
  1         1  
  1         40  
25 1     1   6 use strict;
  1         2  
  1         30  
26 1     1   5 use parent 'WWW::SVT::Play::Video::Stream';
  1         3  
  1         5  
27              
28             our $VERSION = 0.12;
29 1     1   76 use Carp;
  1         2  
  1         103  
30              
31             =head2 is_hds
32              
33             Is stream using HDS protocol? Yes.
34              
35             =cut
36              
37 0     0 1   sub is_hds { 1 }
38              
39             =head1 COPYRIGHT
40              
41             Copyright (c) 2012 - Olof Johansson
42             All rights reserved.
43              
44             This program is free software; you can redistribute it and/or
45             modify it under the same terms as Perl itself.
46              
47             =cut
48              
49             1;