[Catalyst-commits] r12377 - in trunk/examples/CatalystAdvent:
root/2007 root/2008 root/2009/pen t
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Tue Dec 15 01:10:41 GMT 2009
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><cwatson at coldhardcode.com></tt>
\ No newline at end of file
+Cory 'gphat' Watson <tt><cwatson at coldhardcode.com></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>«<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();
+
More information about the Catalyst-commits
mailing list