/ 
WWW-RaptureReady-0.2
River stage zero No dependents
/ WWW::RaptureReady

NAME

WWW::RaptureReady - Interface to Rapture Ready's Rapture Index

VERSION

This document describes WWW::RaptureReady version 0.2.

SYNOPSIS

use WWW::RaptureReady;
my $rr = WWW::RaptureReady->new;
print "URL:           ", $rr->url,     "\n",
      "Current Index: ", $rr->index,   "\n",
      "Index Change:  ", $rr->change,  "\n",
      "Last Updated:  ", $rr->updated, "\n";

DESCRIPTION

This module provides an interface to the Rapture Ready Rapture Index. Rapture Ready's description of the index:

The Rapture Index has two functions: one is to factor together a
number of related end time components into a cohesive indicator,
and the other is to standardize those components to eliminate the
wide variance that currently exists with prophecy reporting.

The Rapture Index is by no means meant to predict the rapture,
however, the index is designed to measure the type of activity
that could act as a precursor to the rapture.

You could say the Rapture index is a Dow Jones Industrial Average
of end time activity, but I think it would be better if you viewed
it as prophetic speedometer. The higher the number, the faster
we're moving towards the occurrence of pre-tribulation rapture.

The rapture index is the "prophetic speedometer of end-time activity".

SUBROUTINES/METHODS

new()

Creates and returns a new WWW::RaptureReady object.

my $rr = WWW::RaptureReady->new

url()

Returns the configured URL for retrieving the Rapture Index.

my $url = $rr->url

url($url)

Sets the URL to be used for retrieving the Rapture Index.

$rr->url("http://example.com/rapture.html")

fetch()

Fetches the Rapture Index HTML from the configured URL.

$rr->fetch

sub fetch { my $self = shift; my $rv = undef; my $res = $self->{ua}->get($self->{url}); if ($res->is_success) { # Fetch and cache the Rapture Index HTML $self->{content} = $res->content; $rv = 1; } else { Carp::carp($res->status_line); } return $rv; }

index()

Returns the current index level. Calls fetch() if index not already retrieved.

my $index = $rr->index

change()

Returns the change in the index. Calls fetch() if index not already retrieved.

my $change = $rr->change

sub change { my $self = shift; my $rv = undef; if ($self->{content} or $self->fetch) { # TODO Make this less fragile if ($self->{content} =~ />Net Change\s+([+\-]\d+)\s*?/) { $rv = $1; } } return $rv; }

updated()

Returns when the index was last updated. Calls fetch() if index not already retrieved.

my $updated = $rr->updated

SEE ALSO

Perl, LWP::UserAgent, http://www.raptureready.com/rap2.html

CONFIGURATION AND ENVIRONMENT

n/a

DIAGNOSTICS

n/a

INCOMPATIBILITIES

n/a

DEPENDENCIES

n/a

BUGS AND LIMITATIONS

Please report any bugs or feature requests to bug-www-raptureready at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-RaptureReady. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc WWW::RaptureReady

You can also look for information at:

ACKNOWLEDGEMENTS

n/a

AUTHOR

blair christensen., <blair.christensen@gmail.com>

LICENSE AND COPYRIGHT

Copyright 2009 by blair christensen.

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

DISCLAIMER OF WARRANTY

BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.

IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.