File Coverage

blib/lib/Acme/Terror.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Acme::Terror;
$Acme::Terror::VERSION = '0.01';

use strict;
use LWP::Simple;
use XML::Simple;

=head1 NAME

Acme::Terror - Fetch the current US terror alert level

=head1 VERSION

This document describes version 0.01 of B.

=head1 SYNOPSIS

	use Acme::Terror;
	my $t = Acme::Terror->new();				# create new Acme::Terror object

	my $level = $t->fetch;					# fetches current level

	print "Current terror alert level is: $level\n";	# prints

=cut

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

	return bless(\%args, $class);
}

sub fetch {
	my $url = "http://www.dhs.gov/dhspublic/getAdvisoryCondition";
	my $con = get($url);
	my $res = XMLin($con);
	my $lvl = $res->{CONDITION};
	return $lvl;
}

1;

__END__