From: diegok Date: Tue, 25 Dec 2012 22:44:56 +0000 (+0100) Subject: Minimal POD for nacked methods X-Git-Tag: v0.01~1 X-Git-Url: http://git.cascardo.info/?p=cascardo%2Fwww-eztv.git;a=commitdiff_plain;h=0d3ed08cfbcf0808a30e4cc43d2389693de396fa Minimal POD for nacked methods --- diff --git a/lib/WWW/EZTV.pm b/lib/WWW/EZTV.pm index 98ed361..6166418 100644 --- a/lib/WWW/EZTV.pm +++ b/lib/WWW/EZTV.pm @@ -11,13 +11,13 @@ has url_shows => ( is => 'ro', lazy => 1, default => sub { shift->url->clone->pa has shows => is => 'ro', lazy => 1, - default => \&build_shows, + builder => '_build_shows', handles => { find_show => 'first', has_shows => 'size', }; -sub build_shows { +sub _build_shows { my $self = shift; $self->get_response( $self->url_shows )->dom->find('table.forum_header_border tr[name="hover"]')->map(sub { diff --git a/lib/WWW/EZTV/UA.pm b/lib/WWW/EZTV/UA.pm index f2fbeeb..41df609 100644 --- a/lib/WWW/EZTV/UA.pm +++ b/lib/WWW/EZTV/UA.pm @@ -2,8 +2,12 @@ package WWW::EZTV::UA; use Moose::Role; use Mojo::UserAgent; +# ABSTRACT: User agent for EZTV scrapper. + has ua => ( is => 'ro', lazy => 1, default => sub { $EZTV::Global::UA || ($EZTV::Global::UA = Mojo::UserAgent->new) } ); +=method get_response +=cut sub get_response { my ($self, $url) = (shift, shift);