package walk_locations;
    use strict;
    use warnings;
    BEGIN {
        require Exporter;
        # set the version for version checking
        our $VERSION     = 0.01;
        # Inherit from Exporter to export functions and variables
        our @ISA         = qw(Exporter);
        # Functions and variables which are exported by default
        our @EXPORT      = qw(new);
        # Functions and variables which can be optionally exported
        our @EXPORT_OK   = qw();
    }
    # exported package globals go here
	 ##
		#  Walk locations
		###
		my %walkLoc = (
		# $degrees + ($minutes/60) + ($seconds/3600)
		   Mingo => {
		      lat => '40.2041666666667)',
		      lon => '-80.0272222222222',},
		   Hartwood => {
		      lat => '40.5553',
		      lon => '-79.9094',},
		   DeerLakes => {
		      lat => '40.62118209953078)',
		      lon => '-79.82713968655357',},
		   NorthPark => {
		      lat => '40.6036',
		      lon => '-80.0169',},
		   CoopersRocks => {
		      lat => '39.65556',
		      lon => '-79.78806',},
		   BradysRun => {
		      lat => '40.76',
		      lon => '-80.32',},
		   FallRun => {
		      lat => '40.534',
		      lon => '-79.9471',},
		   Shawnee => {
		      lat => '40.03',
		      lon => '-78.64',},
		   SouthPark => {
		      lat => '40.30',
		      lon => '-80.00',},
		   Moraine => {
		      lat => '40.966',
		      lon => '-80.1308',},
		   BlueKnob => {
		      lat => '40.27861',
		      lon => '-78.58139',},
		   Emmerling => {
		      lat => '40.581390',
		      lon => '-79.861670',},
		   Jennings => {
		      lat => '41.0071',
		      lon => '-80.0079',},
		   Hampton => {
		      lat => '40.5886',
		      lon => '-79.937',},
		   OhioPyle => {
		      lat => '39.872',
		      lon => '-79.492',},
		   DockHollow => {
		      lat => '40.69861',
		      lon => '-79.66944',},
		   FrickPark => {
		      lat => '40.4323',
		      lon => '-79.9049',},
		   TwinLakes => {
		      lat => '40.3217356',
		      lon => '-79.4772611',},
		   test => {
		      lat => '40.0',
		      lon => '-80',},
		);

		sub new2 {
		  my $package = shift;
		  return bless({}, $package);
		}

		sub new1 {
		    my ( $class, %args ) = @_;
		    my $self = {};
		    bless( $self, $class );
		    return $self;
		}

		sub new()
		{
			return %walkLoc;
		}

END {;}       # module clean-up code here (global destructor)
    1;  		  # don't forget to return a true value from the file