File Coverage

blib/lib/Farly/Object/List.pm

Criterion	Covered	Total	%
statement	55	63	87.3
branch	18	28	64.2
condition	1	3	33.3
subroutine	15	16	93.7
pod	10	11	90.9
total	99	121	81.8

package Farly::Object::List;

use 5.008008;
use strict;
use warnings;
use Carp;

our $VERSION = '0.26';

sub new {
    my ($class) = @_;
    return bless [], $class;
}

sub add {
    my ( $self, $object ) = @_;

    croak "Farly::Object object required"
      unless ( $object->isa('Farly::Object') );

    push @$self, $object;
}

sub iter {
    return @{ $_[0] };
}

sub size {
    return scalar( @{ $_[0] } );
}

sub clone {
    my ($self) = @_;

    my $result = Farly::Object::List->new();

    foreach my $object ( $self->iter() ) {
        $result->add( $object->clone() );
    }

    return $result;
}

sub includes {
    my ( $self, $other ) = @_;

    foreach my $object ( $self->iter() ) {
        if ( $object->matches($other) ) {
            return 1;
        }
    }
}

sub matches {
    my ( $self, $other, $result ) = @_;

    $self->_validate( $other, $result );

    foreach my $object ( $self->iter() ) {
        if ( $object->matches($other) ) {
            $result->add($object);
        }
    }
}

sub contains {
    my ( $self, $other, $result ) = @_;

    $self->_validate( $other, $result );

    foreach my $object ( $self->iter() ) {
        if ( $object->contains($other) ) {
            $result->add($object);
        }
    }
}

sub contained_by {
    my ( $self, $other, $result ) = @_;

    $self->_validate( $other, $result );

    foreach my $object ( $self->iter() ) {
        if ( $object->contained_by($other) ) {
            $result->add($object);
        }
    }
}

sub intersects {
    my ( $self, $other, $result ) = @_;

    $self->_validate( $other, $result );

    foreach my $object ( $self->iter() ) {
        if ( $object->intersects($other) ) {
            $result->add($object);
        }
    }
}

sub search {
    my ( $self, $other, $result ) = @_;

    $self->_validate( $other, $result );

    foreach my $object ( $self->iter() ) {
        if ( $object->matches($other) ) {
            $result->add($object);
        }
        elsif ( $object->contains($other) ) {
            $result->add($object);
        }
        elsif ( $object->contained_by($other) ) {
            $result->add($object);
        }
        elsif ( $object->intersects($other) ) {
            $result->add($object);
        }
    }
}

sub _validate {
    my ( $self, $other, $result ) = @_;

    confess "other not defined"
      unless ( defined $other );

    confess "container for result required"
      unless ( defined $result );

    confess "the search object must be an Farly::Object or Farly::Object::Ref"
      unless ( $other->isa("Farly::Object") );

    confess "the result container must be an Farly::Object::List or Farly::Object::Set"
      unless ( $result->isa("Farly::Object::List") || $result->isa("Farly::Object::Set") );
}

1;
__END__