File Coverage

lib/Spoon/DataObject.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 22 54.5


line stmt bran cond sub pod time code
1             package Spoon::DataObject;
2 2     2   381 use Spoon::Base -Base;
  2         5  
  2         26  
3 2     2   1723  
  2     2   5  
  2         70  
  2         12  
  2         3  
  2         239  
4             stub 'class_id';
5             field 'id';
6              
7 0     0 0   sub name {
8 0 0         $self->{name} = shift if @_;
9 0 0         return $self->{name} if defined $self->name;
10 0           $self->{name} = $self->uri_unescape($self->id);
11             }
12              
13             __DATA__