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

NAME

Geo::Walkabout::Utils - Utility functions for Geo::Walkabout.

DESCRIPTION

These are functions I'm playing around with. Most likely they will be broken up into other libraries and reworked, so don't be surprised if all this changes.

Functions

find_address
  my $line = find_address({fedirp       => $dirp,
                           fename       => $name,
                           fetype       => $type,
                           fedirs       => $dirs,

                           addr_num     => $num,
                           zip          => $zip,
                          });

Finds a line feature from its name and zip. (Eventually city and state instead of zip).

NOTE fedirs and fedirp are currently ignored.

in_range
  my @lines = in_range([$long, $lat], $range);

Returns all line features in a circular $range of the given point ($long, $lat).

get_line_feature
  my @feature = get_line_feature({
                                  fedirp => $fedirp,
                                  fename => $fename,
                                  fetype => $fetype,
                                  fedirs => $fedirs,

                                  zip    => $zip,
                                 }); 

Returns all connected line features of the feature which passes through the given zip code.

NOTE I don't think this quite gets the entire road.

NOTE zip, fedirp and fedirs are currently ignored.

get_zip
  my @lines = get_zip($zip);

Get all lines in a given zip code.

bounding_box
  my $box = bounding_box_zip($zip);

Returns the two point box bounding this zip code. $box->[0] upper-right, $box->[1] is lower-left.

find_intersection
  @lines = find_intersection({fename => $fe_name,
                              fetype => $fe_type,
                             },
                             {fename => $fe_name,
                              fetype => $fe_type,
                             },
                             $zip
                            );

Finds the given cross-street, returning all lines which share in this intersection.

AUTHOR

Michael G Schwern <schwern@pobox.com>

1 POD Error

The following errors were encountered while parsing the POD:

Around line 399:

You forgot a '=back' before '=head1'