sub search_me {
   my $self = shift;
   my ($search) = @_;

   my @results = ();
   foreach my $attr ( qw/title message author/ ) {
      if ( $self->$attr() =~ m/$search/ ) {
         push(@results, { 'name' => $attr, 'value' => $self->$attr() });
      }
   }

   return @results;

}