File Coverage

blib/lib/WebService/GData/Collection.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	8	10	80.0
condition	5	12	41.6
subroutine	8	8	100.0
pod			n/a
total	61	72	84.7

package WebService::GData::Collection;
use WebService::GData::Iterator;
use base 'WebService::GData';
use strict;
use overload '@{}'=>'__to_string',fallback=>1;
our $VERSION =0.01_04;

sub __to_string { my $this = shift;$this->{array}; };

sub __init {
    my ($this,$array,$onset,$onget) = @_;
    $array = ref $array eq 'ARRAY' ? $array :[];
    my $ar = [];
    my $obj = tie @{$ar},'WebService::GData::Iterator',$onset,$onget;
    $this->{array}=$ar;
    $obj->{ARRAY}=$array;

    $this->{cache}={};

}

sub __set {
	my ($this,$attr,$val)=@_;

	#only scalar value allowed
	return [] if(ref($val)||ref($attr));

	if($this->{cache}->{$attr.$val}){
		return $this->{cache}->{$attr.$val};
	}

	$this->{cache}->{$attr.$val}=[];
	my @ret= ();
	foreach my $elm (@$this){
		if($elm->$attr() && $elm->$attr()=~m/$val/) {
		   push @ret,$elm;
		}
	}
   $this->{cache}->{$attr.$val}=\@ret;

   $this->{cache}->{$attr.$val}
}

sub __get {
	my ($this,$func)=@_;

	my @ret =();
	my $last=$this;#don't re-insert result from static methods like attributes()...

   	foreach my $elm (@$this){
        my $ret = $elm->$func();
        next if ($ret && ((!ref $ret && $ret ne $last) || (ref $ret && $ret==$last)));
        $last= $ret;
		push @ret,$ret;
	}

	\@ret
}



"The earth is blue like an orange.";

__END__