File Coverage

blib/lib/WWW/Picnic/Result.pm

Criterion	Covered	Total	%
statement	11	13	84.6
branch	3	6	50.0
condition	2	6	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	19	29	65.5

package WWW::Picnic::Result;
our $VERSION = '0.100';
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Base class for Picnic API result objects

use Moo;


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


sub BUILDARGS {
  my ( $class, @args ) = @_;
  if ( @args == 1 && ref $args[0] ) {
    my $ref_type = ref $args[0];
    # Accept both HASH and ARRAY as raw data
    if ( $ref_type eq 'ARRAY' ) {
      return { raw => $args[0] };
    }
    if ( $ref_type eq 'HASH' && !exists $args[0]->{raw} ) {
      return { raw => $args[0] };
    }
  }
  return $class->SUPER::BUILDARGS(@args);
}

sub _get {
  my ( $self, $key ) = @_;
  return $self->raw->{$key};
}

1;

__END__