File Coverage

blib/lib/WebService/GData/YouTube/YT.pm
Criterion Covered Total %
statement 13 14 92.8
branch 2 2 100.0
condition 4 6 66.6
subroutine 4 5 80.0
pod 2 2 100.0
total 25 29 86.2


line stmt bran cond sub pod time code
1             package WebService::GData::YouTube::YT;
2              
3 8     8   1564 use WebService::GData::Node;
  8         19  
  8         52  
4              
5             our $VERSION = 0.01_01;
6              
7             sub import {
8 49     49   144 my $package = caller;
9 49 100 66     1141 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/YT::/);
      66        
10 47         253 WebService::GData::Node->import($package);
11             {
12 8     8   52 no strict 'refs';
  8         89  
  8         857  
  47         97  
13 47         61 unshift @{$package.'::ISA'},__PACKAGE__;
  47         2336  
14            
15             }
16             }
17              
18 10     10 1 40 sub namespace_prefix {'yt'}
19 0     0 1   sub namespace_uri {'http://gdata.youtube.com/schemas/2007'}
20              
21             1;