[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