Menno Blom > Acme-Terror-NL-0.04 > Acme::Terror::NL

Download:
Acme-Terror-NL-0.04.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.04   Source  

NAME ^

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

SYNOPSIS ^

  use Acme::Terror::NL;

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

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

DESCRIPTION ^

Gets the currrent terrorist threat level in the Netherlands.

The levels are either...

 CRITICAL    - there are strong indications that an attack will occur 
 SUBSTANTIAL - there is a realistic possibility that an attack will occur
 LIMITED     - it appears that attacks can be prevented.
 MINIMAL     - it is unlikely that attacks are being planned.
 UNKNOWN     - cannot determine threat level

There are "only" four levels present in the Netherlands, unlike, e.g. the United Kingdom and the United States of America, where there are five. Thats what you get for being a small country.

This module aims to be compatible with the US version, Acme::Terror, the UK version, Acme::Terror::UK and the AU version, Acme::Terror::AU.

METHODS ^

new()

  use Acme::Terror::NL;
  my $t = Acme::Terror::NL->new(); 

Create a new instance of the Acme:Terror::NL class.

fetch()

  my $threat_level_string = $t->fetch();
  print $threat_level_string;

Return the current threat level as a string.

text()

See fetch(), it returns the same.

level()

  my $level = $t->level();
  if ($level == Acme::Terror::NL::CRITICAL) {
    print "too many L<Acme::Code::FreedomFighter>s!";
  }

Return the level of the current terrorist threat as a comparable value.

The values to compare against are,

  Acme::Terror::NL::CRITICAL
  Acme::Terror::NL::SUBSTANTIAL
  Acme::Terror::NL::LIMITED
  Acme::Terror::NL::MINIMAL

If it can't retrieve the current level, it will return

  Acme::Terror::NL::UNKNOWN

BUGS ^

Blame the terrorists! ... or report it to http://rt.cpan.org/Public/Dist/Display.html?Name=Acme::Terror::NL.

AUTHOR ^

M. Blom, <blom@cpan.org> http://menno.b10m.net/perl/

COPYRIGHT ^

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

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO ^

syntax highlighting: