File Coverage

blib/lib/Tak/Result.pm

Criterion	Covered	Total	%
statement	3	15	20.0
branch	0	4	0.0
condition			n/a
subroutine	1	6	16.6
pod	0	5	0.0
total	4	30	13.3

package Tak::Result;

use Moo;

has type => (is => 'ro', required => 1);
has data => (is => 'ro', required => 1);

sub flatten { $_[0]->type, @{$_[0]->data} }

sub is_success { $_[0]->type eq 'success' }

sub get {
  my ($self) = @_;
  $self->throw unless $self->is_success;
  return wantarray ? @{$self->data} : $self->data->[0];
}

sub throw {
  my ($self) = @_;
  die $self->exception;
}

sub exception {
  my ($self) = @_;
  $self->type.': '.join ' ', @{$self->data};
}

1;