File Coverage

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

Criterion	Covered	Total	%
statement	10	43	23.2
branch	0	22	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	15	71	21.1

package WWW::Asana::Role::NewFromResponse;
BEGIN {
  $WWW::Asana::Role::NewFromResponse::AUTHORITY = 'cpan:GETTY';
}
{
  $WWW::Asana::Role::NewFromResponse::VERSION = '0.003';
}
# ABSTRACT: Role which implements new_from_response for Asana classes

use MooX::Role;
use DateTime::Format::ISO8601;
use Class::Load ':all';


sub new_from_response {
	my ( $class, $data ) = @_;
	die "First parameter to new_From_response need to be a HashRef" unless ref $data eq 'HASH';
	my %data = %{$data};
	my %multi_mapping = (
		followers => 'WWW::Asana::User',
		workspaces => 'WWW::Asana::Workspace',
		projects => 'WWW::Asana::Project',
		tags => 'WWW::Asana::Tag',
	);
	my @needs_workspace = qw( projects tags );
	my %single_mapping = (
		assignee => 'WWW::Asana::User',
		workspace => 'WWW::Asana::Workspace',
		created_by => 'WWW::Asana::User',
	);
	my %new = %data;
	# single mapping before multi mapping so that workspace is already there
	for my $key (keys %single_mapping) {
		if (exists $data{$key}) {
			if ($data{$key}) {
				my $target_class = $single_mapping{$key};
				load_class($target_class) unless is_class_loaded($target_class);
				$new{$key} = $target_class->new_from_response({
					%{$data{$key}},
					defined $data{client} ? ( client => $data{client} ) : (),
					response => $data{response},
				});
			} else {
				delete $new{$key};
			}
		}
	}
	for my $key (keys %multi_mapping) {
		if (exists $data{$key}) {
			$new{$key} = [];
			my $target_class = $multi_mapping{$key};
			for (@{$data{$key}}) {
				load_class($target_class) unless is_class_loaded($target_class);
				push @{$new{$key}}, $target_class->new_from_response({
					%{$_},
					defined $data{client} ? ( client => $data{client} ) : (),
					(grep { $_ eq $key } @needs_workspace) ? ( workspace => $new{workspace} ) : (),
					response => $data{response},
				});
			}
		}
	}
	for my $key (qw( completed_at modified_at created_at due_on )) {
		if (exists $data{$key}) {
			if ($data{$key}) {
				$new{$key} = DateTime::Format::ISO8601->parse_datetime($data{$key});
			} else {
				delete $new{$key};
			}
		}
	}
	return $class->new(%new);
}

1;
__END__