package ProjectData;
@ISA = qw(XPlanner::Project);
package XPlanner::Project;
use strict;
use base qw(XPlanner::Object);
sub _proxy_class { "ProjectData" }
=head1 NAME
XPlanner::Project - projects in XPlanner
=head1 SYNOPSIS
use XPlanner;
my $xp->login(...);
my $project = $xp->projects->{"Project Name"};
$project->delete;
my $iterations = $project->iterations;
=head1 DESCRIPTION
An object representing a project within XPlanner.
=head2 Methods
=head3 iterations
my $iterations = $project->iterations;
Lists all iterations of this project keyed by name.
=cut
sub iterations {
my $self = shift;
return $self->_map_from_soap('name', 'getIterations',
'XPlanner::Iteration');
}
=head3 delete
$project->delete;
Deletes this project from XPlanner.
=cut
sub delete {
my $self = shift;
my $proxy = $self->{_proxy};
$proxy->removeProject($self->{id});
}
=cut
1;