| 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; |