File Coverage

blib/lib/XML/Feed/Content.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 2 0.0
condition n/a
subroutine 3 8 37.5
pod 4 4 100.0
total 16 33 48.4


line stmt bran cond sub pod time code
1             package XML::Feed::Content;
2 1     1   622 use strict;
  1         2  
  1         35  
3 1     1   7 use warnings;
  1         1  
  1         47  
4              
5             our $VERSION = '0.52';
6              
7 1     1   6 use base qw( Class::ErrorHandler );
  1         2  
  1         289  
8              
9             sub wrap {
10 0     0 1   my $class = shift;
11 0           my($c) = @_;
12 0           bless { %$c }, $class;
13             }
14             *new = \&wrap;
15              
16             sub _var {
17 0     0     my $content = shift;
18 0           my $var = shift;
19 0 0         $content->{$var} = shift if @_;
20 0           $content->{$var};
21             }
22              
23 0     0 1   sub type { shift->_var('type', @_) }
24 0     0 1   sub body { shift->_var('body', @_) }
25 0     0 1   sub base { shift->_var('base', @_) }
26              
27             1;
28             __END__