Select Code to Download

 sub search_me {
   my $self = shift;
...
   return @results;

}

$VAR1 = [
          {
...
          }
        ];

package Note::Attribute::Trait::Searchable {
    use Moose::Role;
    Moose::Util::meta_attribute_alias('Searchable');
}

package Note::Searchable {
    use Moose::Role;
...
    }
    
}

package Note {
    use Moose;
...
    no Moose;

}

my $note = Note->new(
    title   => 'My title xyzzy',
...

say Dumper [ $note->search('xyzzy') ];

$VAR1 = [
          {
...
            'value' => 'My title xyzzy'
          }
        ];