[Catalyst-commits] r12377 - in trunk/examples/CatalystAdvent: root/2007 root/2008 root/2009/pen t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-15 01:10:41 +0000 (Tue, 15 Dec 2009)
New Revision: 12377

Modified:
   trunk/examples/CatalystAdvent/root/2007/22.pod
   trunk/examples/CatalystAdvent/root/2008/13.pod
   trunk/examples/CatalystAdvent/root/2008/3.pod
   trunk/examples/CatalystAdvent/root/2008/5.pod
   trunk/examples/CatalystAdvent/root/2008/8.pod
   trunk/examples/CatalystAdvent/root/2009/pen/config_for_beginners.pod
   trunk/examples/CatalystAdvent/t/02pod.t
Log:
Fix the chuffing POD test

Modified: trunk/examples/CatalystAdvent/root/2007/22.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2007/22.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2007/22.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -49,6 +49,8 @@
 from a database query. This could be and entire row, or just certain
 fields as restricted by a ResultSet.
 
+=back
+
 =head1 SETUP
 
 To create a new set of DBIx::Class L<DBIx::Class::ResultSource>

Modified: trunk/examples/CatalystAdvent/root/2008/13.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/13.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2008/13.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -85,6 +85,8 @@
 
 =item L<http://www.w3.org/TR/xhtml-media-types/>
 
+=back
+
 =head1 AUTHOR
 
 Tomas Doran (t0m) <bobtfish at bobtfish.net>

Modified: trunk/examples/CatalystAdvent/root/2008/3.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/3.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2008/3.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -244,8 +244,6 @@
 
  $cc->add_to_datasets($ds);
 
-=end pod::xhtml
-
 =begin pod::xhtml
 
 <p>
@@ -437,4 +435,4 @@
 
 <h2>Author</h2>
 
-Cory 'gphat' Watson <tt>&lt;cwatson at coldhardcode.com&gt;</tt>
\ No newline at end of file
+Cory 'gphat' Watson <tt>&lt;cwatson at coldhardcode.com&gt;</tt>

Modified: trunk/examples/CatalystAdvent/root/2008/5.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/5.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2008/5.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -471,6 +471,8 @@
     <p>[% photo.caption %]</p>
     <div>&laquo;<a href="[% c.uri_for("/photos") %]">back</a>
 
+=back
+
 =head2 FormFu
 
 And last but not least, the required HTML::FormFu files:
@@ -510,6 +512,8 @@
 
 Voila! There you have it. Go nuts.
 
+=back
+
 =head1 AUTHOR
 
 Devin Austin

Modified: trunk/examples/CatalystAdvent/root/2008/8.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/8.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2008/8.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -68,7 +68,7 @@
 write-ability of your code.  See the L<Moose::Cookbook> for many
 examples.
 
-=AUTHORS
+=head1 AUTHORS
 
 Kieren Diment <zarquon at cpan.org>
 Robert 'phaylon' Sedlacek <rs at 474.at>

Modified: trunk/examples/CatalystAdvent/root/2009/pen/config_for_beginners.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2009/pen/config_for_beginners.pod	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/root/2009/pen/config_for_beginners.pod	2009-12-15 01:10:41 UTC (rev 12377)
@@ -14,7 +14,7 @@
 So, lets start at the start - I'll step back, and explain what I'd like to
 achieve:
 
-=begin
+=over
 
 =item *
 

Modified: trunk/examples/CatalystAdvent/t/02pod.t
===================================================================
--- trunk/examples/CatalystAdvent/t/02pod.t	2009-12-15 00:56:43 UTC (rev 12376)
+++ trunk/examples/CatalystAdvent/t/02pod.t	2009-12-15 01:10:41 UTC (rev 12377)
@@ -1,7 +1,22 @@
+use strict;
+use warnings;
 use Test::More;
-
 eval "use Test::Pod 1.14";
 plan skip_all => 'Test::Pod 1.14 required' if $@;
 plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
 
+{
+    my $old = Test::Pod::_parser->can('whine');
+    my $whine = sub {
+        return if $_[2] =~ /L<text\|scheme/;
+        $old->(@_);
+    };
+    {
+        no strict 'refs';
+        no warnings qw/redefine once/;
+        *Test::Pod::_parser::whine = $whine;
+    }
+}
+
 all_pod_files_ok();
+