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:" . $_->{station_name} . "\n" .
        "Station address:" . $_->{station_address} . "\n" .
        "Unleaded price:" . $_>{unleaded_price} . "\n" .
        "Unleaded date:" . $_->{unleaded_date} . "\n" .
        "Plus price:" . $_->{plus_price} . "\n" .
        "Plus date:" . $_->{plus_date} . "\n" .
        "Premium price:" . $_->{premium_price} . "\n" .
        "Premium_date:" . $_->{premium_date} . "\n" .
        "Diesel price:" . $_->{diesel_price} . "\n" .
        "Diesel date:" . $_->{diesel_date} . "\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.