view release on metacpan or  search on metacpan

lib/Acme/Terror/AU.pm  view on Meta::CPAN

package Acme::Terror::AU;

## Get and return the current AU terrorist threat status.

use 5.00503;
use strict;

use vars qw($VERSION);
$VERSION = '0.01';

use constant UNKNOWN		=> 0;
use constant CRITICAL		=> 1;
use constant SEVERE		=> 2;
use constant SUBSTANTIAL	=> 3;
use constant MODERATE		=> 4;
use constant LOW		=> 5;


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

sub fetch {
	my $self = shift;
	return '';
}

sub level {
	my $self = shift;
	my $level = $self->fetch();
	return UNKNOWN	unless ($level);
	if ($level eq 'CRITICAL') {
		return CRITICAL;
	} elsif ($level eq 'SEVERE') {
		return SEVERE;
	} elsif ($level eq 'SUBSTANTIAL') {
		return SUBSTANTIAL;
	} elsif ($level eq 'MODERATE') {
		return MODERATE;
	} elsif ($level eq 'LOW') {
		return LOW;
	} else {
		return UNKNOWN;
	} 	
}


1;

__END__

=pod

=head1 NAME

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

=head1 SYNOPSIS

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

  my $level = $t->fetch;
  print "Current terror alert level is: $level\n";

=head1 DESCRIPTION

Gets the currrent terrorist threat level in Australia.

The levels are either...

 CRITICAL    - an attack is expected imminently 
 SEVERE      - an attack is likely
 SUBSTANTIAL - an attack is a strong possibility
 MODERATE    - an attack is possible but not likely
 LOW         - an attack is unlikely
 UNKNOWN     - cannot determine threat level

HOWEVER, as the government has repeatedly stated that they think
triggering various security events off a single level system would be