File Coverage

blib/lib/WebService/GData/Node/GD.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition 2 6 33.3
subroutine 6 6 100.0
pod 2 2 100.0
total 28 33 84.8


line stmt bran cond sub pod time code
1             package WebService::GData::Node::GD;
2 14     14   1267 use WebService::GData::Constants qw/:namespace/;
  14         1616  
  14         3526  
3 14     14   86 use WebService::GData::Node;
  14         34  
  14         1526  
4              
5             sub import {
6 1     1   2 my $package = caller;
7 1 50 33     25 return if($package->isa(__PACKAGE__)||$package eq 'main'|| $package!~m/GD::/);
      33        
8 1         7 WebService::GData::Node->import($package);
9             {
10 14     14   80 no strict 'refs';
  14         32  
  14         1573  
  1         2  
11 1         2 unshift @{$package.'::ISA'},__PACKAGE__;
  1         77  
12             }
13             }
14              
15              
16 17     17 1 74 sub namespace_prefix {GDATA_NAMESPACE_PREFIX}
17 17     17 1 1394 sub namespace_uri {GDATA_NAMESPACE_URI}
18              
19              
20             1;