sub match {
  my($self, @matches) = @_;

  my @fields = $self->fields;
  my @ret;
  for my $p (@{ $self->table }) {
    push @ret => { map {; $_ => $p->$_ } @fields }
      if grep {
           my $val = $_;
           grep { $p->$_ =~ $val } @fields
         } @matches;
  }

  return @ret;
}