File Coverage

blib/lib/WebService/GData/Node/GML.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::GML;
2 9     9   51 use WebService::GData::Constants qw/:namespace/;
  9         17  
  9         1967  
3 9     9   56 use WebService::GData::Node;
  9         18  
  9         68  
4              
5             sub import {
6 36     36   94 my $package = caller;
7 36 100 66     2173 return if($package->isa(__PACKAGE__)||$package eq 'main'||$package!~m/GML::/);
      100        
8 18         87 WebService::GData::Node->import($package);
9             {
10 9     9   83 no strict 'refs';
  9         15  
  9         1370  
  18         29  
11 18         29 unshift @{$package.'::ISA'},__PACKAGE__;
  18         868  
12            
13             }
14             }
15              
16 8     8 1 39 sub namespace_prefix {GML_NAMESPACE_PREFIX}
17 0     0 1   sub namespace_uri { GML_NAMESPACE_URI }
18              
19              
20             1;