File Coverage

blib/lib/EntityModel/Web/Page/Pathinfo.pm
Criterion Covered Total %
statement 6 13 46.1
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 19 47.3


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