File Coverage

blib/lib/WebService/GData/Serialize.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 29 93.1


line stmt bran cond sub pod time code
1             package WebService::GData::Serialize;
2 17     17   4385 use WebService::GData;
  17         37  
  17         105  
3 17     17   100 use base 'WebService::GData';
  17         37  
  17         3335  
4              
5             our $VERSION = 0.01_01;
6              
7              
8             sub __set {
9 9     9   36 my($package,$func,@args)=@_;
10            
11 9         66 $func=~s/to_|as_//;
12            
13 9         66 $package= q[WebService::GData::Serialize::]."\U$func";
14 17     17   102 { no strict 'refs';
  17         34  
  17         1711  
  9         17  
15 9 50   9   6830 eval "use $package;" if(!@{$package.'::ISA'});
  9         27  
  9         69  
  9         17  
  9         805  
16             }
17            
18 9         104 $func = $package->can('encode');
19              
20 9 50       71 $func->(@args) if($func);
21              
22             }
23              
24              
25              
26              
27             "The earth is blue like an orange.";
28              
29             __END__