File Coverage

blib/lib/XPlanner/Story.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             package UserStoryData;
2              
3             @ISA = qw(XPlanner::Story);
4              
5              
6             package XPlanner::Story;
7              
8 1     1   2531 use strict;
  1         1  
  1         35  
9 1     1   5 use base qw(XPlanner::Object);
  1         2  
  1         146  
10              
11 0     0     sub _proxy_class { "UserStoryData" }
12              
13              
14             =head1 NAME
15              
16             XPlanner::Story - User stories in an iteration
17              
18              
19             =head1 SYNOPSIS
20              
21             use XPlanner;
22              
23             my $xp->login(...);
24              
25             my $iteration = $xp->projects->{"Project Name"}
26             ->iterations->{"Iteration Name"};
27             my $story = $iteration->stories->{"Some Story"};
28             $story->delete;
29              
30              
31             =head1 DESCRIPTION
32              
33             A story contains the following fields
34              
35             These are required when creating a new story
36              
37             name
38             description
39              
40             These are optional
41              
42             customerId
43             trackerId
44             lastUpdateTime
45             priority
46             estimatedHours
47             originalEstimatedHours
48             adjustedEstimatedHours
49             actualHours
50             remainingHours
51             completed
52              
53             =cut
54              
55             sub delete {
56 0     0 0   my $self = shift;
57 0           my $proxy = $self->{_proxy};
58              
59 0           $proxy->removeUserStory($self->{id});
60             }
61              
62             1;