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

[grim at dev.catalyst.perl.org]

Author: grim
Date: 2009-12-12 15:54:28 +0000 (Sat, 12 Dec 2009)
New Revision: 8070

Added:
   ironman/IronMan-Web/lib/IronMan/Web/Controller/Archive.pm
   ironman/IronMan-Web/t/controller_Archive.t
Log:
Initial addition of archive controller

Added: ironman/IronMan-Web/lib/IronMan/Web/Controller/Archive.pm
===================================================================
--- ironman/IronMan-Web/lib/IronMan/Web/Controller/Archive.pm	                        (rev 0)
+++ ironman/IronMan-Web/lib/IronMan/Web/Controller/Archive.pm	2009-12-12 15:54:28 UTC (rev 8070)
@@ -0,0 +1,43 @@
+package IronMan::Web::Controller::Archive;
+use Moose;
+use namespace::autoclean;
+
+BEGIN {extends 'Catalyst::Controller'; }
+
+=head1 NAME
+
+IronMan::Web::Controller::Archive - Catalyst Controller
+
+=head1 DESCRIPTION
+
+Catalyst Controller.
+
+=head1 METHODS
+
+=cut
+
+
+=head2 index
+
+=cut
+
+sub index :Path :Args(0) {
+    my ( $self, $c ) = @_;
+
+    $c->response->body('Matched IronMan::Web::Controller::Archive in Archive.');
+}
+
+
+=head1 AUTHOR
+
+Grseme Lawton,,,
+
+=head1 LICENSE
+
+This library is free software. You can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+__PACKAGE__->meta->make_immutable;
+

Added: ironman/IronMan-Web/t/controller_Archive.t
===================================================================
--- ironman/IronMan-Web/t/controller_Archive.t	                        (rev 0)
+++ ironman/IronMan-Web/t/controller_Archive.t	2009-12-12 15:54:28 UTC (rev 8070)
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { use_ok 'Catalyst::Test', 'IronMan::Web' }
+BEGIN { use_ok 'IronMan::Web::Controller::Archive' }
+
+ok( request('/archive')->is_success, 'Request should succeed' );
+done_testing();