File Coverage

blib/lib/WWW/NOS/Open/Video.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             package WWW::NOS::Open::Video 0.101; # -*- cperl; cperl-indent-level: 4 -*-
2 5     5   30 use strict;
  5         12  
  5         155  
3 5     5   25 use warnings;
  5         13  
  5         141  
4              
5 5     5   21 use utf8;
  5         13  
  5         35  
6 5     5   163 use 5.014000;
  5         18  
7              
8 5     5   25 use Moose qw/extends/;
  5         10  
  5         33  
9 5     5   24836 use namespace::autoclean '-also' => qr/^__/sxm;
  5         14  
  5         62  
10              
11             extends 'WWW::NOS::Open::MediaResource';
12              
13 5     5   496 no Moose;
  5         12  
  5         25  
14              
15             __PACKAGE__->meta->make_immutable;
16              
17             1;
18              
19             __END__
20              
21             =encoding utf8
22              
23             =for stopwords DateTime URI perl Ipenburg MERCHANTABILITY
24              
25             =head1 NAME
26              
27             WWW::NOS::Open::Video - client side video in the Open NOS REST API.
28              
29             =head1 VERSION
30              
31             This document describes WWW::NOS::Open::Video version 0.101.
32              
33             =head1 SYNOPSIS
34              
35             use WWW::NOS::Open::Video;
36              
37             =head1 DESCRIPTION
38              
39             This class represents a video as returned in the latest ten videos list.
40              
41             =head1 SUBROUTINES/METHODS
42              
43             =head2 C<new>
44              
45             Create a new video object.
46              
47             =over
48              
49             =item 1. A hash containing the properties and their values.
50              
51             =back
52              
53             =head2 C<get_id>
54              
55             Returns the id of the video as integer.
56              
57             =head2 C<get_title>
58              
59             Returns the title of the video as string.
60              
61             =head2 C<get_description>
62              
63             Returns the description of the video as string.
64              
65             =head2 C<get_published>
66              
67             Returns the publishing date of the video as a L<DateTime|DateTime> object.
68              
69             =head2 C<get_last_update>
70              
71             Returns the date of the last update for the video as a L<DateTime|DateTime>
72             object.
73              
74             =head2 C<get_thumbnail_xs>
75              
76             Returns the URL of the extra small thumbnail for the video as an L<URI|URI>
77             object.
78              
79             =head2 C<get_thumbnail_s>
80              
81             Returns the URL of the small thumbnail for the video as an L<URI|URI> object.
82              
83             =head2 C<get_thumbnail_m>
84              
85             Returns the URL of the medium sized thumbnail for the video as an L<URI|URI>
86             object.
87              
88             =head2 C<get_link>
89              
90             Returns the URL of the video as an L<URI|URI> object.
91              
92             =head2 C<get_embed_code>
93              
94             Return the HTML code to embed the video in an HTML page.
95              
96             =head2 C<get_keywords>
97              
98             Returns the list of keywords for the video as a reference to an array of
99             strings.
100              
101             =head1 CONFIGURATION AND ENVIRONMENT
102              
103             =head1 DEPENDENCIES
104              
105             =over 4
106              
107             =item * perl 5.14
108              
109             =item * L<Moose|Moose>
110              
111             =item * L<WWW::NOS::Open::MediaResource|WWW::NOS::Open::MediaResource>
112              
113             =item * L<namespace::autoclean|namespace::autoclean>
114              
115             =back
116              
117             =head1 INCOMPATIBILITIES
118              
119             =head1 DIAGNOSTICS
120              
121             =head1 BUGS AND LIMITATIONS
122              
123             Please report any bugs or feature requests at
124             L<RT for rt.cpan.org|https://rt.cpan.org/Dist/Display.html?Queue=WWW-NOS-Open>.
125              
126             =head1 AUTHOR
127              
128             Roland van Ipenburg, E<lt>ipenburg@xs4all.nlE<gt>
129              
130             =head1 LICENSE AND COPYRIGHT
131              
132             Copyright 2012 by Roland van Ipenburg
133              
134             This library is free software; you can redistribute it and/or modify
135             it under the same terms as Perl itself, either Perl version 5.14.0 or,
136             at your option, any later version of Perl 5 you may have available.
137              
138             =head1 DISCLAIMER OF WARRANTY
139              
140             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
141             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
142             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
143             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
144             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
145             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
146             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
147             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
148             NECESSARY SERVICING, REPAIR, OR CORRECTION.
149              
150             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
151             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
152             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENSE, BE
153             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
154             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
155             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
156             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
157             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
158             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
159             SUCH DAMAGES.
160              
161             =cut