sub all {
  my $self = shift;
  return $self->{'objects'};
}

sub one {
  my $self = shift;
  my $filter = shift;
  return [ grep { $_->{'value'} == $filter } @{$self->{'objects'}} ];
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.