Minimal POD for nacked methods

diff --git a/lib/WWW/EZTV.pm b/lib/WWW/EZTV.pm
index 98ed361..6166418 100644 (file)
--- 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 (file)
--- 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);