gistfile1.txt

sub find_in_box {
    my ( $self, $box ) = @_;
    my $where = {
        longitude =>
          [ -and => { '<', \$box->{min_lon} }, { '>', \$box->{max_lon} } ],
        latitude =>
          [ -and => { '>', \$box->{min_lat} }, { '<', \$box->{max_lat} } ],
    };
    $self->directory->search($where);
}