Yet Another CPAN Grep

WWW-MelbourneBikeShare ( L/LT/LTP/WWW-MelbourneBikeShare-0.01.tar.gz, LTP, 2017; MetaCPAN )

WWW-MelbourneBikeShare/lib/WWW/MelbourneBikeShare.pm ( view source; MetaCPAN )

package WWW::MelbourneBikeShare;

use strict;
use warnings;

use LWP;
use JSON;
use WWW::MelbourneBikeShare::Terminal;

our $VERSION = 0.01;

sub new {
	my ( $class, %args ) = @_;

	my $self = bless {

 LWP::UserAgent->new();
	$self->{ __uri } = 'https://data.melbourne.vic.gov.au/resource/qnjw-wgaj.json';
	$self->{ __cache }->{ timeout } = $args{ cache } ||= 900;
	$self->{ __cache }->{ present } = 0

     if ( $r->is_success ) { 
                $self->{ error } = ''; 
                return from_json( $r->content );
        }
        else {
                $self->{ error } = "Unable to retrieve $