File Coverage

blib/lib/WebService/YouTube/Video.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Video.pm 11 2007-04-09 04:34:01Z hironori.yoshida $
3             #
4             package WebService::YouTube::Video;
5 5     5   874 use strict;
  5         12  
  5         169  
6 5     5   27 use warnings;
  5         9  
  5         123  
7 5     5   26 use version; our $VERSION = qv('1.0.3');
  5         8  
  5         38  
8              
9 5     5   478 use base qw(Class::Accessor::Fast);
  5         11  
  5         45  
10              
11             __PACKAGE__->mk_accessors(
12             qw(
13             author
14             channel_list
15             comment_count
16             comment_list
17             description
18             id
19             length_seconds
20             rating_avg
21             rating_count
22             recording_country
23             recording_date
24             recording_location
25             tags
26             thumbnail_url
27             title
28             update_time
29             upload_time
30             url
31             view_count
32             )
33             );
34              
35             1;
36              
37             __END__