diff options
Diffstat (limited to 'lib/intentioncloud')
| -rw-r--r-- | lib/intentioncloud/Controller/Root.pm | 76 | ||||
| -rw-r--r-- | lib/intentioncloud/View/TT.pm | 31 |
2 files changed, 107 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; diff --git a/lib/intentioncloud/View/TT.pm b/lib/intentioncloud/View/TT.pm new file mode 100644 index 0000000..91f1483 --- /dev/null +++ b/lib/intentioncloud/View/TT.pm @@ -0,0 +1,31 @@ +package intentioncloud::View::TT; + +use strict; +use base 'Catalyst::View::TT'; + +__PACKAGE__->config(TEMPLATE_EXTENSION => '.tt'); + +=head1 NAME + +intentioncloud::View::TT - TT View for intentioncloud + +=head1 DESCRIPTION + +TT View for intentioncloud. + +=head1 AUTHOR + +=head1 SEE ALSO + +L<intentioncloud> + +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; |
