summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/intentioncloud.pm65
-rw-r--r--lib/intentioncloud/Controller/Root.pm76
-rw-r--r--lib/intentioncloud/View/TT.pm31
3 files changed, 172 insertions, 0 deletions
diff --git a/lib/intentioncloud.pm b/lib/intentioncloud.pm
new file mode 100644
index 0000000..d7d8adc
--- /dev/null
+++ b/lib/intentioncloud.pm
@@ -0,0 +1,65 @@
+package intentioncloud;
+
+use strict;
+use warnings;
+
+use Catalyst::Runtime '5.70';
+
+# Set flags and add plugins for the application
+#
+# -Debug: activates the debug mode for very useful log messages
+# ConfigLoader: will load the configuration from a Config::General file in the
+# application's home directory
+# Static::Simple: will serve static files from the application's root
+# directory
+
+use parent qw/Catalyst/;
+use Catalyst qw/-Debug
+ ConfigLoader
+ Static::Simple
+ I18N
+ /;
+our $VERSION = '0.01';
+
+# Configure the application.
+#
+# Note that settings in intentioncloud.conf (or other external
+# configuration file that you set up manually) take precedence
+# over this when using ConfigLoader. Thus configuration
+# details given here can function as a default configuration,
+# with a external configuration file acting as an override for
+# local deployment.
+
+__PACKAGE__->config( name => 'intentioncloud' );
+
+# Start the application
+__PACKAGE__->setup();
+
+=head1 NAME
+
+intentioncloud - Catalyst based application
+
+=head1 SYNOPSIS
+
+ script/intentioncloud_server.pl
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 SEE ALSO
+
+L<intentioncloud::Controller::Root>, L<Catalyst>
+
+=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/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;