The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package FooClient;
use Moose;

has 'server' => (
    is  => 'rw'
);


sub search {
    my ( $self, $q ) = @_;

    return $self;
}

sub results {;
    return [
        {
            'person_id' => [1],
        }, 
        {
            'person_id' => [2],
        } 
    ];
}

1;