File Coverage

blib/lib/Data/Container.pm

Criterion	Covered	Total	%
statement	30	33	90.9
branch	2	2	100.0
condition	2	3	66.6
subroutine	10	12	83.3
pod	4	4	100.0
total	48	54	88.8

use 5.008;
use strict;
use warnings;

package Data::Container;
our $VERSION = '1.100840';
# ABSTRACT: Base class for objects containing a list of items

# Implements a container object.
use Carp;
use Data::Miscellany 'set_push';
use parent 'Class::Accessor::Complex';
use overload
  '""' => 'stringify',
  cmp  => sub { "$_[0]" cmp "$_[1]" };
__PACKAGE__
    ->mk_new
    ->mk_array_accessors('items');

sub stringify {
    join "\n\n" => map { "$_" } $_[0]->items;
}

sub items_set_push {
    my ($self, @values) = @_;
    set_push @{ $self->{items} },
      map { ref($_) && UNIVERSAL::isa($self, ref $_) ? $_->items : $_ } @values;
}

sub prepare_comparable {
    my $self = shift;
    $self->items;    # autovivify
}

sub item_grep {
    my ($self, $spec) = @_;
    grep { ref($_) eq $spec } $self->items;
}
1;


__END__