Webpacus/Controller/Results.pm

package Webpacus::Controller::Results;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

Webpacus::Controller::Results - Catalyst Controller

=head1 SYNOPSIS

See L<Webpacus>

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=over 4

=item default

=cut

sub default : Private {
    my ( $self, $c ) = @_;

    my $webpac = $c->comp('Model::WebPAC');
    my $params = $c->req->params;
    my $log = $c->log;

use Data::Dumper;
    $log->debug("got params: " . Dumper( $params ) );

    $c->stash->{results} = sub {
        my @res = $webpac->search(
                query => 'ivan',
        );
        return @res;
    };

    $c->stash->{template} = 'results.tt';
}

=back


=head1 AUTHOR

Dobrica Pavlinusic,,,

=head1 LICENSE

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

=cut

1;
1	dpavlin	83	package Webpacus::Controller::Results;
2
3			use strict;
4			use warnings;
5			use base 'Catalyst::Controller';
6
7			=head1 NAME
8
9			Webpacus::Controller::Results - Catalyst Controller
10
11			=head1 SYNOPSIS
12
13			See L<Webpacus>
14
15			=head1 DESCRIPTION
16
17			Catalyst Controller.
18
19			=head1 METHODS
20
21			=over 4
22
23			=item default
24
25			=cut
26
27			sub default : Private {
28			my ( $self, $c ) = @_;
29
30	dpavlin	93	my $webpac = $c->comp('Model::WebPAC');
31			my $params = $c->req->params;
32			my $log = $c->log;
33	dpavlin	83
34	dpavlin	93	use Data::Dumper;
35			$log->debug("got params: " . Dumper( $params ) );
36
37			$c->stash->{results} = sub {
38			my @res = $webpac->search(
39			query => 'ivan',
40			);
41			return @res;
42			};
43
44	dpavlin	83	$c->stash->{template} = 'results.tt';
45			}
46
47			=back
48
49
50			=head1 AUTHOR
51
52			Dobrica Pavlinusic,,,
53
54			=head1 LICENSE
55
56			This library is free software, you can redistribute it and/or modify
57			it under the same terms as Perl itself.
58
59			=cut
60
61			1;