Webpacus/Controller/Editor.pm

package Webpacus::Controller::Editor;

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

=head1 NAME

Webpacus::Controller::Editor - 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;

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

sub template : Local {
    my ( $self, $c ) = @_;

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

sub css : Local {
    my ( $self, $c ) = @_;

    $c->stash->{template} = 'editor/css.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	package Webpacus::Controller::Editor;
2
3	use strict;
4	use warnings;
5	use base 'Catalyst::Controller';
6
7	=head1 NAME
8
9	Webpacus::Controller::Editor - 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	my $webpac = $c->comp('Model::WebPAC');
31	my $params = $c->req->params;
32	my $log = $c->log;
33
34	$c->stash->{template} = 'editor.tt';
35	}
36
37	sub template : Local {
38	my ( $self, $c ) = @_;
39
40	$c->stash->{template} = 'editor/template.tt';
41	}
42
43	sub css : Local {
44	my ( $self, $c ) = @_;
45
46	$c->stash->{template} = 'editor/css.tt';
47	}
48
49	=back
50
51
52	=head1 AUTHOR
53
54	Dobrica Pavlinusic,,,
55
56	=head1 LICENSE
57
58	This library is free software, you can redistribute it and/or modify
59	it under the same terms as Perl itself.
60
61	=cut
62
63	1;