File Coverage

blib/lib/NIST/Beacon.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package NIST::Beacon;

# ABSTRACT: A Perl module for querying NIST's randomness beacon.

use strict;
use warnings;

our $VERSION = "1.000";

use Moo;
use XML::Simple;
use LWP::UserAgent;
use NIST::Beacon::Record;

has _agent => (is => 'ro', default => sub { LWP::UserAgent->new(agent => 'NIST-Beacon') });
has _url => (is => 'ro', default => sub { 'https://beacon.nist.gov/rest/record/' });

sub latest_record {
	my $self = shift;
	my $url = $self->_url . 'last';
	my $response = $self->_agent->get($url);

	if ($response->is_success) {
		my $data = XMLin($response->decoded_content);
		return NIST::Beacon::Record->new($data);
	}
	else {
		return;
	}
}

sub previous_record {
	my $self = shift;
	my $time = shift || time;
	my $url = $self->_url . 'previous/' . $time;
	my $response = $self->_agent->get($url);

	if ($response->is_success) {
		my $data = XMLin($response->decoded_content);
		return NIST::Beacon::Record->new($data);
	}
	else {
		return;
	}
}

sub current_record {
	my $self = shift;
	my $time = shift || time - 60;
	my $url = $self->_url . $time;
	my $response = $self->_agent->get($url);

	if ($response->is_success) {
		my $data = XMLin($response->decoded_content);
		return NIST::Beacon::Record->new($data);
	}
	else {
		return;
	}
}

sub next_record {
	my $self = shift;
	my $time = shift or return;
	my $url = $self->_url . 'next/' . $time;
	my $response = $self->_agent->get($url);

	if ($response->is_success) {
		my $data = XMLin($response->decoded_content);
		return NIST::Beacon::Record->new($data);
	}
	else {
		return;
	}
}

1;

__END__