File Coverage

blib/lib/WWW/RaptureReady.pm

Criterion	Covered	Total	%
statement	55	56	98.2
branch	12	20	60.0
condition	4	12	33.3
subroutine	11	11	100.0
pod	6	6	100.0
total	88	105	83.8

package WWW::RaptureReady;


use 5.006001;
use strict;
use warnings;
use Carp            ();
use LWP::UserAgent  ();


our $VERSION = '0.2';


sub new {
  my ($class, @args) = @_;
  my $self = bless {}, ref($class) || $class;
  # Default location of the Rapture Index
  $self->{url}  = 'http://www.raptureready.com/rap2.html';
  $self->{ua}   = LWP::UserAgent->new;
  $self->{ua}->agent('WWW::RaptureReady/' . $VERSION);
  $self->{ua}->from('[e-mail]');
  return $self;
}

sub url {
  my ($self, $url) = @_;
  if (defined $url) {
    if ( $url =~ m{^(?:file|https?):} ) {
      $self->{url} = $url;
    } else {
      $self->{url} = 'file:' . $url;
    }
  }
  return $self->{url};
}

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;
}

sub index {
  my $self = shift;
  my $rv = undef;
  if ($self->{content} or $self->fetch) {
    # TODO Make this less fragile
    if ( $self->{content} =~ /> Rapture Index (\d+)
      $rv = $1;
    }
  }
  return $rv;
}

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+(.+?)
      $rv = ( $1 eq 'unch' ? 0 : $1 );
    }
  }
  return $rv;
}

sub updated {
  my $self  = shift;
  my $rv    = undef;
  if ($self->{content} or $self->fetch) {
    # TODO Make this less fragile
    if ( $self->{content} =~ /Updated(.+)?<\/p>/ ) {
      $rv = $1;
      # Sigh...
      $rv =~ s/ //g;
      $rv =~ s/<.+?>//g;
    }
  }
  return $rv;
}

1; # End of WWW::RaptureReady


__END__