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<Acme::Terror>.


	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


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

	return bless(\%args, $class);

sub fetch {
	my $url = "";
	my $con = get($url);
	my $res = XMLin($con);
	my $lvl = $res->{CONDITION};
	return $lvl;



=head1 AUTHORS

Matt Galisa E<lt><gt>


Copyright 2005 by Matt Galisa E<lt><gt>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<>