File Coverage

blib/lib/Apache/ASP/CollectionItem.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	3	0.0
total	22	25	88.0

package Apache::ASP::CollectionItem;
use strict;

# for support of $Request->QueryString->('foo')->Item() syntax

sub new {
    my($package, $rv) = @_;
    my @items = @$rv;
    bless {
	   'Item' => $items[0],
	   'Items' => \@items,
	   'Count' => defined $items[0] ? scalar(@items) : 0,
	  }, $package;
}

sub Count { shift->{Count} };

sub Item {
    my($self, $index) = @_;
    my $items = $self->{Items};

    if(defined $index) {
	$items->[$index-1];
    } else {
	wantarray ? @$items : $items->[0];
    }
}

1;