File Coverage

blib/lib/WWW/UsePerl/Journal/Entry.pm

Criterion	Covered	Total	%
statement	74	77	96.1
branch	14	22	63.6
condition	4	9	44.4
subroutine	18	19	94.7
pod	5	5	100.0
total	115	132	87.1

package WWW::UsePerl::Journal::Entry;

use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '0.26';

#----------------------------------------------------------------------------

=head1 NAME

WWW::UsePerl::Journal::Entry - use.perl.org journal entry

=head1 DESCRIPTION

Do not use directly. See L for details of usage.

=cut

# -------------------------------------
# Library Modules

use base qw(Class::Accessor::Fast);

use HTTP::Cookies;
use HTTP::Request::Common;
use LWP::UserAgent;
use Time::Piece;
use Time::Seconds;

use WWW::UsePerl::Journal;

#----------------------------------------------------------------------------
# Accessors

=head2 The Accessors

The following accessor methods are available:

  date
  subject
  author
  uid
  content

All functions can be called to return the current value of the associated
object variable.

=cut

__PACKAGE__->mk_accessors($_) for qw(date subject author eid);

# -------------------------------------
# Constants & Variables

my $UP_URL = 'http://use.perl.org/use.perl.org';
use overload q{""}  => sub { $_[0]->stringify() };

my $UID = '
             \s+
             \s+ (.*?) \s+ \((\d+)\) \s+  \s+
        ';

my %mons = (
	1  => 'January',
	2  => 'February',
	3  => 'March',
	4  => 'April',
	5  => 'May',
	6  => 'June',
	7  => 'July',
	8  => 'August',
	9  => 'September',
	10 => 'October',
	11 => 'November',
	12 => 'December',
);

# -------------------------------------
# The Public Interface

=head1 INTERFACE

=head2 Constructor

=over 4

=item * new

  use WWW::UsePerl::Journal::Entry;
  my $j = WWW::UsePerl::Journal::Entry->new(%hash);

Creates an instance for a specific entry. The hash must contain values for
the keys 'j' (journal object), 'author' (entry author) and 'eid' (entry id).

=back

=cut

sub new {
    my $class = shift;
    my %opts = (@_);

    for(qw/j author eid/) {
    	return	unless($opts{$_});
    }

    die "No parent object"
	    unless $opts{j}->isa('WWW::UsePerl::Journal');

#use Data::Dumper;
#print STDERR "\n#self->new: ".Dumper(\%opts);

    my $self = bless {%opts}, $class;
    return $self;
}

sub DESTROY {}

=head2 Methods

=over 4

=item * stringify

  use WWW::UsePerl::Journal::Entry;
  my $j = WWW::UsePerl::Journal::Entry->new(%hash);
  print "$j";

Returns the content of the journal entry when the object is directly referenced
in a string.

=cut

sub stringify {
    my $self = shift;
    $self->content();
}

=item * eid

Returns the entry id for the current journal entry.

=cut

sub eid {
    my $self = shift;
    return $self->{eid};
}

=item * content

Return the content of an journal entry.

=cut

sub content {
    my $self   = shift;
    $self->{content} ||= do { $self->_get_content };
}

=item * raw

For debugging purposes.

=back

=cut

sub raw {
    my $self   = shift;
    my $eid    = $self->{eid};
    my $author = $self->{author};
#print STDERR "\n#raw: URL=[". $UP_URL . "/_$author/journal/$eid.html]";
    return $self->{j}->{ua}->request(GET $UP_URL . "/_$author/journal/$eid.html")->content;
}

# -------------------------------------
# The Private Subs

# name:	_get_content
# args:	self .... the current object
# retv: content text
# desc: Given a uid and journal entry id, will retrieve a specific journal
#       entry and disassemble into component parts. returns the content text

sub _get_content {
    my $self   = shift;
    my $eid    = $self->{eid};
    my $author = $self->{author};
    my $content;

    eval {
        $content = $self->{j}->{ua}->request(GET $UP_URL . "/_$author/journal/$eid.html")->content;
    };

#print STDERR "\n#eval=[$@]\n";

    return $self->{j}->error("error getting entry") if($@);

#print STDERR "\n#e->_get_content: URL=[". $UP_URL . "/_$author/journal/$eid.html]";
#print STDERR "\n#content=[$content]\n";

    return $self->{j}->error("error getting entry") unless $content;
    return $self->{j}->error("error getting entry") if($content =~ m!Error type:\s+\d+!);

    return $self->{j}->error("$eid does not exist")
        if $content =~
        m#Sorry, there are no journal entries
        found for this user.