File Coverage

blib/lib/WebService/GData/Node/Media.pm
Criterion Covered Total %
statement 16 17 94.1
branch 2 2 100.0
condition 4 6 66.6
subroutine 5 6 83.3
pod 2 2 100.0
total 29 33 87.8


line stmt bran cond sub pod time code
1             package WebService::GData::Node::Media;
2 7     7   478 use WebService::GData::Constants qw/:namespace/;
  7         14  
  7         1965  
3 7     7   723 use WebService::GData::Node;
  7         25  
  7         49  
4              
5              
6             sub import {
7 62     62   153 my $package = caller;
8 62 100 66     1314 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/Media::/);
      66        
9 61         333 WebService::GData::Node->import($package);
10             {
11 7     7   41 no strict 'refs';
  7         15  
  7         873  
  61         94  
12 61         73 unshift @{$package.'::ISA'},__PACKAGE__;
  61         6717  
13            
14             }
15             }
16              
17              
18 17     17 1 99 sub namespace_prefix {MEDIA_NAMESPACE_PREFIX};
19 0     0 1   sub namespace_uri { MEDIA_NAMESPACE_URI }
20              
21             1;