Acme-Terror

 view release on metacpan or  search on metacpan

.cvsignore  view on Meta::CPAN

blib*
Makefile
Makefile.old
Build
_build*
pm_to_blib*
*.tar.gz
.lwpcookies
Acme-Terror-*
cover_db

Changes  view on Meta::CPAN

Revision history for Acme-Terror

0.01    Date/time
        First version, released on an unsuspecting world.

MANIFEST  view on Meta::CPAN

Changes
MANIFEST
META.yml # Will be created by "make dist"
Makefile.PL
README
lib/Acme/Terror.pm
t/00-load.t
t/pod-coverage.t
t/pod.t

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;
use ExtUtils::MakeMaker;

WriteMakefile(
    NAME                => 'Acme::Terror',
    AUTHOR              => 'Matt Galisa <mrdelayer@gmail.com>',
    VERSION_FROM        => 'lib/Acme/Terror.pm',
    ABSTRACT_FROM       => 'lib/Acme/Terror.pm',
    PL_FILES            => {},
    PREREQ_PM => {
        'Test::More' => 0,
    },
    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean               => { FILES => 'Acme-Terror-*' },
);

README  view on Meta::CPAN

Acme-Terror

The README is used to introduce the module and provide instructions on
how to install the module, any machine dependencies it may have (for
example C compilers and installed libraries) and any other information
that should be provided before the module is installed.

A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it get an idea of the modules uses. It is usually a good idea
to provide version information here so that people can decide whether

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

package Acme::Terror;
$Acme::Terror::VERSION = '0.01';

use strict;
use LWP::Simple;
use XML::Simple;

=head1 NAME

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

=head1 VERSION

This document describes version 0.01 of B<Acme::Terror>.

=head1 SYNOPSIS

	use Acme::Terror;
	my $t = Acme::Terror->new();				# create new Acme::Terror object
	
	my $level = $t->fetch;					# fetches current level

	print "Current terror alert level is: $level\n";	# prints

=cut

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

	return bless(\%args, $class);
}

t/00-load.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 1;

BEGIN {
	use_ok( 'Acme::Terror' );
}

diag( "Testing Acme::Terror $Acme::Terror::VERSION, Perl $], $^X" );

t/terrortest.pl  view on Meta::CPAN

#!/usr/bin/perl

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

my $level = $t->fetch;

print "Current terror alert level is: $level\n";