aboutsummaryrefslogtreecommitdiffstats
path: root/lib/MGA/Mirrors
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mageia.org>2010-09-23 23:13:54 +0000
committerOlivier Thauvin <nanardon@mageia.org>2010-09-23 23:13:54 +0000
commit57beda663bb4448ad838b599e5df5bf50375a5cb (patch)
tree605e8d2d3784bf8ee877b857185d76d262930cef /lib/MGA/Mirrors
downloadmgamirrors-57beda663bb4448ad838b599e5df5bf50375a5cb.tar
mgamirrors-57beda663bb4448ad838b599e5df5bf50375a5cb.tar.gz
mgamirrors-57beda663bb4448ad838b599e5df5bf50375a5cb.tar.bz2
mgamirrors-57beda663bb4448ad838b599e5df5bf50375a5cb.tar.xz
mgamirrors-57beda663bb4448ad838b599e5df5bf50375a5cb.zip
- init
Diffstat (limited to 'lib/MGA/Mirrors')
-rw-r--r--lib/MGA/Mirrors/Controller/Root.pm69
1 files changed, 69 insertions, 0 deletions
diff --git a/lib/MGA/Mirrors/Controller/Root.pm b/lib/MGA/Mirrors/Controller/Root.pm
new file mode 100644
index 0000000..5decc3a
--- /dev/null
+++ b/lib/MGA/Mirrors/Controller/Root.pm
@@ -0,0 +1,69 @@
+package MGA::Mirrors::Controller::Root;
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller' }
+
+#
+# Sets the actions in this controller to be registered with no prefix
+# so they function identically to actions created in MyApp.pm
+#
+__PACKAGE__->config(namespace => '');
+
+=head1 NAME
+
+MGA::Mirrors::Controller::Root - Root Controller for MGA::Mirrors
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 METHODS
+
+=head2 index
+
+The root page (/)
+
+=cut
+
+sub index :Path :Args(0) {
+ my ( $self, $c ) = @_;
+
+ # Hello World
+ $c->response->body( $c->welcome_message );
+}
+
+=head2 default
+
+Standard 404 error page
+
+=cut
+
+sub default :Path {
+ my ( $self, $c ) = @_;
+ $c->response->body( 'Page not found' );
+ $c->response->status(404);
+}
+
+=head2 end
+
+Attempt to render a view, if needed.
+
+=cut
+
+sub end : ActionClass('RenderView') {}
+
+=head1 AUTHOR
+
+Olivier Thauvin
+
+=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;
+
+1;