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

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