File Coverage

blib/lib/Acme/Terror/AU.pm

Criterion	Covered	Total	%
statement	27	42	64.2
branch	0	14	0.0
condition			n/a
subroutine	9	12	75.0
pod	3	3	100.0
total	39	71	54.9

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__