[Bast-commits] r8087 - in ironman/IronMan-Web: . lib/IronMan/Web/Controller t

grim at dev.catalyst.perl.org grim at dev.catalyst.perl.org
Sat Dec 12 20:17:34 GMT 2009


Author: grim
Date: 2009-12-12 20:17:34 +0000 (Sat, 12 Dec 2009)
New Revision: 8087

Added:
   ironman/IronMan-Web/t/view_RSS.t
Modified:
   ironman/IronMan-Web/Makefile.PL
   ironman/IronMan-Web/ironman_web.yml
   ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm
Log:
Added RSS and Atom Feeds

Modified: ironman/IronMan-Web/Makefile.PL
===================================================================
--- ironman/IronMan-Web/Makefile.PL	2009-12-12 20:13:48 UTC (rev 8086)
+++ ironman/IronMan-Web/Makefile.PL	2009-12-12 20:17:34 UTC (rev 8087)
@@ -15,7 +15,7 @@
 requires 'Data::UUID';
 requires 'Email::Valid';
 requires 'LWP::Simple';
-requires 'XML::Feed'
+requires 'XML::Feed';
 
 catalyst;
 

Modified: ironman/IronMan-Web/ironman_web.yml
===================================================================
--- ironman/IronMan-Web/ironman_web.yml	2009-12-12 20:13:48 UTC (rev 8086)
+++ ironman/IronMan-Web/ironman_web.yml	2009-12-12 20:17:34 UTC (rev 8087)
@@ -1,2 +1,4 @@
 ---
 name: IronMan::Web
+
+default_view: TT

Modified: ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm
===================================================================
--- ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm	2009-12-12 20:13:48 UTC (rev 8086)
+++ ironman/IronMan-Web/lib/IronMan/Web/Controller/Root.pm	2009-12-12 20:17:34 UTC (rev 8087)
@@ -97,8 +97,19 @@
 
 =cut 
 
-sub end : ActionClass('RenderView') {}
+sub end : ActionClass('RenderView') {
+    my ( $self, $c ) = @_;
 
+    $c->stash(current_view => 'RSS') if (
+        ($c->req->param('feed') eq 'RSS') || 
+        ($c->req->param('feed') eq 'atom')
+    );
+
+
+
+}
+
+
 =head1 AUTHOR
 
 Catalyst developer

Added: ironman/IronMan-Web/t/view_RSS.t
===================================================================
--- ironman/IronMan-Web/t/view_RSS.t	                        (rev 0)
+++ ironman/IronMan-Web/t/view_RSS.t	2009-12-12 20:17:34 UTC (rev 8087)
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'IronMan::Web::View::RSS' }
+
+done_testing();




More information about the Bast-commits mailing list