File Coverage

blib/lib/Mirror/JSON/URI.pm

Criterion	Covered	Total	%
statement	31	37	83.7
branch	2	4	50.0
condition	1	3	33.3
subroutine	11	13	84.6
pod	0	6	0.0
total	45	63	71.4

package Mirror::JSON::URI;

use 5.005;
use strict;
use URI          ();
use Params::Util qw{ _STRING _INSTANCE };
use LWP::Simple  ();

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.01';
}





#####################################################################
# Constructor

sub new {
	my $class = shift;
	my $self  = bless { @_ }, $class;
	unless ( _INSTANCE($self->uri, 'URI') ) {
		return undef;
	}
	return $self;
}

sub uri {
	$_[0]->{uri};
}

sub json {
	$_[0]->{json};
}

sub live {
	!! $_[0]->{live};
}

sub lag {
	$_[0]->{lag};
}





#####################################################################
# Main Methods

sub get {
	my $self   = shift;
	my $uri    = URI->new('mirror.json')->abs( $self->uri );
	my $before = Time::HiRes::time();
	my $json   = LWP::Simple::get($uri);
	unless ( $json and $json =~ /^---/ ) {
		# Site does not exist, or is broken
		return $self->{live} = 0;
	}
	$self->{lag}  = Time::HiRes::time() - $before;
	$self->{json} = Mirror::JSON->read_string( $json );
	return $self->{live} = 1;
}

1;