File Coverage

blib/lib/EntityModel/Web/Page/Content.pm
Criterion Covered Total %
statement 6 14 42.8
branch 0 4 0.0
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 22 40.9


line stmt bran cond sub pod time code
1             package EntityModel::Web::Page::Content;
2             {
3             $EntityModel::Web::Page::Content::VERSION = '0.004';
4             }
5             use EntityModel::Class {
6 1         7 section => 'string',
7             template => 'string',
8 1     1   666 };
  1         2  
9              
10             =head1 NAME
11              
12              
13              
14             =head1 SYNOPSIS
15              
16             =head1 VERSION
17              
18             version 0.004
19              
20             =head1 DESCRIPTION
21              
22             =cut
23              
24 1     1   450 use Data::Dumper;
  1         2  
  1         175  
25              
26             =head1 METHODS
27              
28             =cut
29              
30             sub new {
31 0     0 1   my $class = shift;
32 0           my $self = $class->SUPER::new;
33 0           my %args = @_;
34 0 0         if(defined(my $section = delete $args{section})) {
35 0           $self->{section} = $section;
36             }
37 0 0         if(defined(my $tmpl = delete $args{template})) {
38 0           $self->{template} = $tmpl;
39             }
40 0           return $self;
41             }
42              
43             1;
44              
45             __END__