File Coverage

blib/lib/EO/Collection.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package EO::Collection;

use strict;
use warnings;
use EO;
use EO::Error;
our $VERSION = 0.96;
our @ISA = qw( EO );

exception EO::Error::InvalidParameters;

sub element {
  my $self = CORE::shift;
  if (@_) {
    my $thing = shift;
    if (!ref($thing)) {
      throw EO::Error::InvalidParameters text => 'not a reference';
    }
    $self->{ element } = $thing;
    return $self;
  }
  return $self->{ element };
}

sub delete : Abstract;
sub at : Abstract;
sub count : Abstract;

sub select : Abstract;
sub do : Abstract;

sub grep {
  my $self = shift;
  $self->select( @_ );
}

sub foreach {
  my $self = shift;
  $self->do( @_ );
}

sub as_string {
  my $self = shift;
  use Data::Dumper qw();
  my $d = Data::Dumper->new([ $self->element ]);
  $d->Indent( 0 );
  my $str = $d->Dump;
  $str =~ s/\$VAR\d\s*=\s*//g;
  return $str;
}

1;

__END__