File Coverage

blib/lib/WebService/GData/Node/GeoRSS.pm
Criterion Covered Total %
statement 16 17 94.1
branch 2 2 100.0
condition 5 6 83.3
subroutine 5 6 83.3
pod 2 2 100.0
total 30 33 90.9


line stmt bran cond sub pod time code
1             package WebService::GData::Node::GeoRSS;
2 9     9   1602 use WebService::GData::Constants qw/:namespace/;
  9         22  
  9         4245  
3 9     9   2018 use WebService::GData::Node;
  9         40  
  9         118  
4              
5             sub import {
6 18     18   47 my $package = caller;
7 18 100 66     553 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/GeoRSS::/);
      100        
8 9         42 WebService::GData::Node->import($package);
9             {
10 9     9   51 no strict 'refs';
  9         17  
  9         1100  
  9         14  
11 9         16 unshift @{$package.'::ISA'},__PACKAGE__;
  9         319  
12            
13             }
14             }
15              
16 4     4 1 33 sub namespace_prefix {GEORSS_NAMESPACE_PREFIX};
17 0     0 1   sub namespace_uri { GEORSS_NAMESPACE_URI };
18              
19              
20             1;