Acme-Terror-AU

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

both it and this License would be to refrain entirely from distribution of the
Program.

If any portion of this section is held invalid or unenforceable under any particular
circumstance, the balance of the section is intended to apply and the section as
a whole is intended to apply in other circumstances.

It is not the purpose of this section to induce you to infringe any patents or other
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.

This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.

8. If the distribution and/or use of the Program is restricted in certain countries
either by patents or by copyrighted interfaces, the original copyright holder who

README  view on Meta::CPAN

      Acme::Terror::AU::SEVERE
      Acme::Terror::AU::SUBSTANTIAL
      Acme::Terror::AU::MODERATE
      Acme::Terror::AU::LOW

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

      Acme::Terror::AU::UNKNOWN

BUGS
    This module may become buggy if Australia develops a simple public and
    level-based terror alert system, like the ones the US and UK have.

SEE ALSO
    Acme::Terror, Acme::Terror::UK

AUTHOR
    Adam Kennedy <adamk@cpan.org>

COPYRIGHT AND LICENSE
    Copyright (C) 2006 Adam Kennedy.

inc/Module/Install/Metadata.pm  view on Meta::CPAN

        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {

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

  Acme::Terror::AU::SUBSTANTIAL
  Acme::Terror::AU::MODERATE
  Acme::Terror::AU::LOW

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

  Acme::Terror::AU::UNKNOWN

=head1 BUGS

This module may become buggy if Australia develops a simple public and
level-based terror alert system, like the ones the US and UK have.

=head1 SEE ALSO

L<Acme::Terror>, L<Acme::Terror::UK>

=head1 AUTHOR

Adam Kennedy E<lt>adamk@cpan.orgE<gt>