File Coverage

blib/lib/WWW/Asana/Role/HasStories.pm

Criterion	Covered	Total	%
statement	4	12	33.3
branch			n/a
condition			n/a
subroutine	2	7	28.5
pod	3	3	100.0
total	9	22	40.9

package WWW::Asana::Role::HasStories;
BEGIN {
  $WWW::Asana::Role::HasStories::AUTHORITY = 'cpan:GETTY';
}
{
  $WWW::Asana::Role::HasStories::VERSION = '0.003';
}
# ABSTRACT: Role for Asana classes which have stories

use MooX::Role;


sub stories {
	my ( $self ) = @_;
	$self->do('[Story]', 'GET', $self->own_base_args, 'stories', sub { target => $self });
}


sub create_story {
	my ( $self, @args ) = @_;
	unshift @args, 'text';
	$self->do('Story', 'POST', $self->own_base_args, 'stories', { @args }, sub { target => $self });
}


sub comment { shift->create_story(@_) }

1;
__END__