Gas-Prices version 0.0.1

Gas::Prices - Perl Module to get the gas prices around a particular zip code

It gets its data by scraping msn autos webpage.

It retrieves a bunch of gas stations around the particular zip code, and for each gas station, it retrives the following data

Example

use Gas::Prices;
my $gp = new Gas::Prices("75023"); #or any other zip code my @gas_stations = @{$gp->get_stations};

foreach(@gas_stations)
{

        print   "Station name:" . $->{stationname} . "\n" .
        "Station address:" . $->{stationaddress} . "\n" .
        "Unleaded price:" . $>{unleadedprice} . "\n" .
        "Unleaded date:" . $->{unleadeddate} . "\n" .
        "Plus price:" . $->{plusprice} . "\n" .
        "Plus date:" . $->{plusdate} . "\n" .
        "Premium price:" . $->{premiumprice} . "\n" .
        "Premium_date:" . $->{premiumdate} . "\n" .
        "Diesel price:" . $->{dieselprice} . "\n" .
        "Diesel date:" . $->{dieseldate} . "\n";

}

my $cheapest_unleaded = $gp->get_cheapest_station("unleaded"); Print the cheapest unleaded grade gas near 75023 is " . $cheapest_unleaded{station_name} . " at " . $cheapest_unleaded->{station_address} . ' for $' . $cheapest_unleaded->{unleaded_price} . "/gallon.";

INSTALLATION

To install this module, run the following commands:

perl Makefile.PL
make
make test
make install

DEPENDENCIES

None.

COPYRIGHT AND LICENCE

Copyright (C) 2007, Ashish Kasturia

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.