File Coverage

blib/lib/WebService/GData/Node/OpenSearch.pm
Criterion Covered Total %
statement 15 17 88.2
branch 1 2 50.0
condition 2 6 33.3
subroutine 4 6 66.6
pod 2 2 100.0
total 24 33 72.7


line stmt bran cond sub pod time code
1             package WebService::GData::Node::OpenSearch;
2 5     5   27 use WebService::GData::Node;
  5         9  
  5         34  
3 5     5   52 use WebService::GData::Constants qw/:namespace/;
  5         10  
  5         1647  
4              
5             sub import {
6 15     15   33 my $package = caller;
7 15 50 33     354 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/::OpenSearch/);
      33        
8 15         72 WebService::GData::Node->import($package);
9             {
10 5     5   32 no strict 'refs';
  5         9  
  5         637  
  15         20  
11 15         20 unshift @{$package.'::ISA'},__PACKAGE__;
  15         784  
12            
13             }
14             }
15              
16 0     0 1   sub namespace_prefix {OPENSEARCH_NAMESPACE_PREFIX }
17 0     0 1   sub namespace_uri { OPENSEARCH_NAMESPACE_URI }
18              
19              
20             1;