Acme::Terror::AU is a Perl module that can be used to fetch the current AU terror alert level.
my $t = Acme::Terror::AU->new(); # create new Acme::Terror::AU object
my $level = $t->fetch;
print "Current terror alert level is: $level
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 damage flexibiliy by oversimplifying the situation, and in any case, why on earth should they let the terrorists see what their alert status is.
And so this module never returns any of the above status, and instead always returns UNKNOWN.
This module aims to be compatible with the US version Acme::Terror and the UK version Acme::Terror::UK.