summaryrefslogtreecommitdiff
path: root/lib/intentioncloud/Controller/Root.pm
diff options
context:
space:
mode:
authorfranck cuny <franck.cuny@rtgi.fr>2009-03-17 21:39:41 +0100
committerfranck cuny <franck.cuny@rtgi.fr>2009-03-17 21:39:41 +0100
commit6d0bd92e26a6da6af2adcbb9e5caf11c50fc5701 (patch)
tree8bb4df25a0c7a54996f67acf1e33d430d6689d5b /lib/intentioncloud/Controller/Root.pm
downloadintention-cloud-6d0bd92e26a6da6af2adcbb9e5caf11c50fc5701.tar.gz
initial commit
Diffstat (limited to 'lib/intentioncloud/Controller/Root.pm')
-rw-r--r--lib/intentioncloud/Controller/Root.pm76
1 files changed, 76 insertions, 0 deletions
diff --git a/lib/intentioncloud/Controller/Root.pm b/lib/intentioncloud/Controller/Root.pm
new file mode 100644
index 0000000..81e1f6a
--- /dev/null
+++ b/lib/intentioncloud/Controller/Root.pm
@@ -0,0 +1,76 @@
+package intentioncloud::Controller::Root;
+
+use strict;
+use warnings;
+use parent '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
+
+intentioncloud::Controller::Root - Root Controller for intentioncloud
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 METHODS
+
+=cut
+
+=head2 index
+
+=cut
+
+sub about : Local {
+ my ( $self, $c ) = @_;
+ $c->stash->{template} = 'others/what.tt';
+}
+
+sub who : Local {
+ my ( $self, $c ) = @_;
+ $c->stash->{template} = 'others/who.tt';
+}
+
+sub why : Local {
+ my ( $self, $c ) = @_;
+ $c->stash->{template} = 'others/why.tt';
+}
+
+sub how : Local {
+ my ( $self, $c ) = @_;
+ $c->stash->{template} = 'others/how.tt';
+}
+
+sub index : Path : Args(0) {
+ my ( $self, $c ) = @_;
+ $c->stash->{template} = 'cloud/search.tt';
+
+}
+
+
+=head2 end
+
+Attempt to render a view, if needed.
+
+=cut
+
+sub end : ActionClass('RenderView') {
+}
+
+=head1 AUTHOR
+
+franck cuny,,,
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;