home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / CollectionItem.pm < prev    next >
Encoding:
Perl POD Document  |  2002-04-20  |  554 b   |  31 lines
  1.  
  2. package Apache::ASP::CollectionItem;
  3. use strict;
  4.  
  5. # for support of $Request->QueryString->('foo')->Item() syntax
  6.  
  7. sub new {
  8.     my($package, $rv) = @_;
  9.     my @items = @$rv;
  10.     bless {
  11.        'Item' => $items[0],
  12.        'Items' => \@items,
  13.        'Count' => defined $items[0] ? scalar(@items) : 0,
  14.       }, $package;
  15. }
  16.  
  17. sub Count { shift->{Count} };
  18.  
  19. sub Item {
  20.     my($self, $index) = @_;
  21.     my $items = $self->{Items};
  22.     
  23.     if(defined $index) {
  24.     $items->[$index-1];
  25.     } else {
  26.     wantarray ? @$items : $items->[0];
  27.     }
  28. }
  29.  
  30. 1;
  31.