[Catalyst-commits] r11696 - in Catalyst-View-TD/trunk: lib/Catalyst/Helper lib/Catalyst/Helper/View t

[theory at dev.catalyst.perl.org]

Author: theory
Date: 2009-10-30 17:41:59 +0000 (Fri, 30 Oct 2009)
New Revision: 11696

Modified:
   Catalyst-View-TD/trunk/lib/Catalyst/Helper/TDClass.pm
   Catalyst-View-TD/trunk/lib/Catalyst/Helper/View/TD.pm
   Catalyst-View-TD/trunk/t/03podspelling.t
Log:
Removed duplicate helper template and fixed POD test failures (picky picky!).


Modified: Catalyst-View-TD/trunk/lib/Catalyst/Helper/TDClass.pm
===================================================================
--- Catalyst-View-TD/trunk/lib/Catalyst/Helper/TDClass.pm	2009-10-30 17:37:59 UTC (rev 11695)
+++ Catalyst-View-TD/trunk/lib/Catalyst/Helper/TDClass.pm	2009-10-30 17:41:59 UTC (rev 11696)
@@ -91,12 +91,12 @@
 
 =over
 
+=item L<Template::Declare>
+
 [% IF vclass %]=item L<[% vclass %]>
 
 [% END %]=item L<[% app %]>
 
-=item L<Template::Declare>
-
 =item L<Catalyst::View::TD>
 
 =back

Modified: Catalyst-View-TD/trunk/lib/Catalyst/Helper/View/TD.pm
===================================================================
--- Catalyst-View-TD/trunk/lib/Catalyst/Helper/View/TD.pm	2009-10-30 17:37:59 UTC (rev 11695)
+++ Catalyst-View-TD/trunk/lib/Catalyst/Helper/View/TD.pm	2009-10-30 17:41:59 UTC (rev 11696)
@@ -133,54 +133,3 @@
 # my $tx = Test::XPath->new( xml => $output, is_html => 1);
 # $tx->ok('/html', 'Should have root html element');
 # $tx->is('/html/head/title', 'Hello, Theory', 'Title should be correct');
-__tmpl_class__
-package [% class %];
-
-use strict;
-use warnings;
-use Template::Declare::Tags;
-
-# See Template::Declare docs for details on creating templates, which look
-# something like this.
-# template hello => sub {
-#     my ($self, $vars) = @_;
-#     html {
-#         head { title { "Hello, $vars->{user}" } };
-#         body { h1    { "Hello, $vars->{user}" } };
-#     };
-# };
-
-=head1 NAME
-
-[% class %] - [% name %] templates for [% app %]
-
-=head1 DESCRIPTION
-
-TD templates for [% app %].
-
-=head1 SEE ALSO
-
-=over
-
-[% IF vclass %]=item L<[% vclass %]>
-
-[% END %]=item L<[% app %]>
-
-=item L<Template::Declare>
-
-=item L<Catalyst::View::TD>
-
-=back
-
-=head1 AUTHOR
-
-[% author %]
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify it under
-the same terms as Perl itself.
-
-=cut
-
-1;

Modified: Catalyst-View-TD/trunk/t/03podspelling.t
===================================================================
--- Catalyst-View-TD/trunk/t/03podspelling.t	2009-10-30 17:37:59 UTC (rev 11695)
+++ Catalyst-View-TD/trunk/t/03podspelling.t	2009-10-30 17:41:59 UTC (rev 11696)
@@ -12,3 +12,4 @@
 runtime
 namespace
 tclass
+vclass