File Coverage

blib/lib/WebService/Backlog/SwitchStatus.pm
Criterion Covered Total %
statement 9 14 64.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package WebService::Backlog::SwitchStatus;
2              
3             # $Id$
4              
5 1     1   5 use strict;
  1         2  
  1         36  
6 1     1   5 use warnings;
  1         2  
  1         31  
7              
8 1     1   5 use base qw(Class::Accessor::Fast);
  1         2  
  1         174  
9              
10             my @PARAMS = qw/
11             key summary statusId
12             resolutionId assignerId comment
13             /;
14              
15             __PACKAGE__->mk_accessors(@PARAMS);
16              
17             sub hash {
18 0     0 0   my $self = shift;
19 0           my $hash = {};
20 0           for my $p (@PARAMS) {
21 0 0         $hash->{$p} = $self->$p if (defined $self->$p);
22             }
23 0           return $hash;
24             }
25              
26             1;
27             __END__