File Coverage

blib/lib/WebService/Backlog/Comment.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package WebService::Backlog::Comment;
2              
3             # $Id$
4              
5 1     1   6 use strict;
  1         2  
  1         42  
6 1     1   6 use warnings;
  1         2  
  1         47  
7              
8 1     1   6 use base qw(Class::Accessor::Fast);
  1         2  
  1         990  
9             __PACKAGE__->mk_accessors(qw/id content created_on updated_on created_user/);
10              
11 1     1   4116 use WebService::Backlog::User;
  1         3  
  1         7  
12              
13             sub created_user {
14 0     0 0   my $self = shift;
15 0 0         $self->SUPER::created_user(WebService::Backlog::User->new(@_)) if (@_);
16 0           return $self->SUPER::created_user;
17             }
18              
19             1;
20             __END__