package OV;

use strict;
use warnings;

#
# Set flags and add plugins for the application
#
#         -Debug: activates the debug mode for very useful log messages
# Static::Simple: will serve static files from the application's root 
# directory
#
use Catalyst qw/-Debug Static::Simple Config::YAML/;

our $VERSION = '0.01';

#
# Start the application
#

__PACKAGE__->config(config_file => 'ov.yml');
__PACKAGE__->setup;

=head1 NAME

OV - Catalyst based application

=head1 SYNOPSIS

    script/ov_server.pl

=head1 DESCRIPTION

Catalyst based application.

=head1 METHODS

=cut

=head2 default

=cut

#
# Output a friendly welcome message
#
sub default : Private {
    my ( $self, $c ) = @_;

    # Hello World
    $c->response->body( $c->welcome_message );
}

sub im : Regex('^im/(\w+)/(\w+)') {
    my ($self, $c) = @_;
    $c->forward( $c->model('DBIC'),
                 'query',
                 $c->req->snippets );
    $c->forward( $c->view('JSON') );
}

#
# Uncomment and modify this end action after adding a View component
#
#=head2 end
#
#=cut
#
#sub end : Private {
#    my ( $self, $c ) = @_;
#
#    # Forward to View unless response body is already defined
#    $c->forward( $c->view('') ) unless $c->response->body;
#}

=head1 AUTHOR

Liu Kang-min

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;