File Coverage

blib/lib/WWW/Asana/Project.pm

Criterion	Covered	Total	%
statement	4	12	33.3
branch	0	4	0.0
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	6	28	21.4

package WWW::Asana::Project;
BEGIN {
  $WWW::Asana::Project::AUTHORITY = 'cpan:GETTY';
}
{
  $WWW::Asana::Project::VERSION = '0.003';
}
# ABSTRACT: Asana Project Class

use MooX;

with 'WWW::Asana::Role::HasClient';
with 'WWW::Asana::Role::HasResponse';
with 'WWW::Asana::Role::NewFromResponse';

with 'WWW::Asana::Role::HasFollowers';
with 'WWW::Asana::Role::HasStories';

with 'WWW::Asana::Role::CanReload';
with 'WWW::Asana::Role::CanUpdate';

sub own_base_args { 'projects', shift->id }

sub reload_base_args { 'Project', 'GET' }
sub update_args {
	my ( $self ) = @_;
	'Project', 'PUT', $self->own_base_args, $self->value_args;
}
sub create_args {
	my ( $self ) = @_;
	'Project', 'POST', 'projects', $self->value_args;
}
sub value_args {
	my ( $self ) = @_;
	return {
		workspace => $self->workspace->id,
		$self->has_name ? ( name => $self->name ) : (),
		$self->has_notes ? ( notes => $self->notes ) : (),
	};
}

has id => (
	is => 'ro',
	predicate => 1,
);

has name => (
	is => 'ro',
	predicate => 1,
);

has notes => (
	is => 'ro',
	predicate => 1,
);

has archived => (
	is => 'ro',
	predicate => 1,
);

has created_at => (
	is => 'ro',
	isa => sub {
		die "created_at must be a DateTime" unless ref $_[0] eq 'DateTime';
	},
	predicate => 1,
);

has modified_at => (
	is => 'ro',
	isa => sub {
		die "modified_at must be a DateTime" unless ref $_[0] eq 'DateTime';
	},
	predicate => 1,
);

has workspace => (
	is => 'ro',
	isa => sub {
		die "workspace must be a WWW::Asana::Workspace" unless ref $_[0] eq 'WWW::Asana::Workspace';
	},
	predicate => 1,
);

1;

__END__