File Coverage

blib/lib/WebService/GData/Node/Atom.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition 4 6 66.6
subroutine 6 6 100.0
pod 2 2 100.0
total 31 33 93.9


line stmt bran cond sub pod time code
1             package WebService::GData::Node::Atom;
2 23     23   20282 use WebService::GData::Constants qw/:namespace/;
  23         60  
  23         7437  
3 23     23   18066 use WebService::GData::Node;
  23         172  
  23         114  
4              
5              
6             sub import {
7 193     193   698 my $package = caller;
8 193 100 66     16093 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/Atom::/);
      66        
9 186         948 WebService::GData::Node->import($package);
10             {
11 23     23   146 no strict 'refs';
  23         40  
  23         5052  
  186         272  
12 186         221 unshift @{$package.'::ISA'},__PACKAGE__;
  186         8361  
13             }
14             }
15              
16              
17 150     150 1 607 sub namespace_prefix {ATOM_NAMESPACE_PREFIX};
18 21     21 1 79 sub namespace_uri {ATOM_NAMESPACE_URI};
19              
20             1;