[Catalyst-commits] r12378 - in trunk/examples/CatalystAdvent/lib/CatalystAdvent: . Controller

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-15 01:19:11 +0000 (Tue, 15 Dec 2009)
New Revision: 12378

Modified:
   trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Calendar.pm
   trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Root.pm
   trunk/examples/CatalystAdvent/lib/CatalystAdvent/Pod.pm
Log:
Make Pod::Coverage happy

Modified: trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Calendar.pm
===================================================================
--- trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Calendar.pm	2009-12-15 01:10:41 UTC (rev 12377)
+++ trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Calendar.pm	2009-12-15 01:19:11 UTC (rev 12378)
@@ -196,6 +196,12 @@
     $c->res->body( $feed->as_string );
 }
 
+=head2 format_date_w3cdtf
+
+Formats a date as an ISO8601 date string.
+
+=cut
+
 sub format_date_w3cdtf { strftime '%Y-%m-%dT%H:%M:%SZ', gmtime $_[0] }
 
 =head1 AUTHORS

Modified: trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Root.pm
===================================================================
--- trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Root.pm	2009-12-15 01:10:41 UTC (rev 12377)
+++ trunk/examples/CatalystAdvent/lib/CatalystAdvent/Controller/Root.pm	2009-12-15 01:19:11 UTC (rev 12378)
@@ -28,6 +28,12 @@
     $c->stash->{now} = DateTime->now();
 }
 
+=head2 end
+
+Renders a view if needed.
+
+=cut
+
 sub end : ActionClass('RenderView') {}
 
 1;

Modified: trunk/examples/CatalystAdvent/lib/CatalystAdvent/Pod.pm
===================================================================
--- trunk/examples/CatalystAdvent/lib/CatalystAdvent/Pod.pm	2009-12-15 01:10:41 UTC (rev 12377)
+++ trunk/examples/CatalystAdvent/lib/CatalystAdvent/Pod.pm	2009-12-15 01:19:11 UTC (rev 12378)
@@ -1,13 +1,3 @@
-#!/usr/bin/perl
-# Pod.pm 
-# Copyright (c) 2006 Jonathan Rockway <jrockway at cpan.org>
-
-=head1 NAME
-
-CatalystAdvent::Pod - parse POD into XHTML + metadata
-
-=cut
-
 package CatalystAdvent::Pod;
 use base 'Pod::Xhtml';
 use strict;
@@ -39,7 +29,7 @@
 
     $self->{_title} = $paragraph
         if $command eq 'head1' and not defined $self->{_title};
-    
+
     $self->{_in_author_block} = 1
         if $command =~ /^head/ and $paragraph =~ /AUTHOR/;
 
@@ -53,15 +43,15 @@
     my $kind = $self->{LinkParser}->type;
     my $targ = $self->{LinkParser}->node;
     my $text = $self->{LinkParser}->text;
-    
+
     if ($kind eq 'hyperlink'){
 	return $self->SUPER::seqL($link);
     }
-    
+
     $targ ||= $text;
     $text = Pod::Xhtml::_htmlEscape($text);
     $targ = Pod::Xhtml::_htmlEscape($targ);
-    
+
     return qq{<a href="http://search.cpan.org/perldoc?$targ">$text</a>};
 }
 
@@ -71,3 +61,39 @@
 sub email   { $_[0]->{_email} }
 1;
 
+=head1 NAME
+
+CatalystAdvent::Pod - parse POD into XHTML + metadata
+
+=head1 METHODS
+
+=over
+
+=item author
+
+=item command
+
+=item email
+
+=item new
+
+=item seqL
+
+=item summary
+
+=item textblock
+
+=item title
+
+=back
+
+=head1 AUTHOR
+
+    Jonathan Rockway <jrockway at cpan.org>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2006 Jonathan Rockway
+
+=cut
+