File Coverage

blib/lib/WWW/Picnic/Result/Article.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	3	3	100.0
total	16	16	100.0

package WWW::Picnic::Result::Article;
our $VERSION = '0.100';
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Detailed Picnic product/article information

use Moo;

extends 'WWW::Picnic::Result';


has id => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('id') },
);


has name => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('name') },
);


has description => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('description') },
);


has type => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('type') },
);


has images => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('images') || [] },
);


has image_ids => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('image_ids') || [] },
);


has price_info => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('price_info') || {} },
);


sub price {
  my ( $self ) = @_;
  return $self->price_info->{price};
}


sub original_price {
  my ( $self ) = @_;
  return $self->price_info->{original_price};
}


sub deposit {
  my ( $self ) = @_;
  return $self->price_info->{deposit};
}


has unit_quantity => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('unit_quantity') },
);


has max_order_quantity => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('max_order_quantity') },
);


has labels => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('labels') || [] },
);


has allergies => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('allergies') || {} },
);


has highlights => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('highlights') || [] },
);


has perishable => (
  is => 'ro',
  lazy => 1,
  default => sub { shift->_get('perishable') },
);


1;

__END__