File Coverage

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

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	18	18	100.0

package WWW::Picnic::Result::DeliverySlots;
our $VERSION = '0.100';
our $AUTHORITY = 'cpan:GETTY';
# ABSTRACT: Collection of Picnic delivery slots

use Moo;

extends 'WWW::Picnic::Result';

use WWW::Picnic::Result::DeliverySlot;


has delivery_slots => (
  is => 'ro',
  lazy => 1,
  default => sub {
    my $self = shift;
    my $slots = $self->_get('delivery_slots') || [];
    return [ map { WWW::Picnic::Result::DeliverySlot->new($_) } @$slots ];
  },
);


sub all_slots {
  my ( $self ) = @_;
  return @{ $self->delivery_slots };
}


sub available_slots {
  my ( $self ) = @_;
  return grep { $_->is_available } $self->all_slots;
}


1;

__END__