You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
545 B
38 lines
545 B
9 years ago
|
package Thruk::Controller::hello;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
Thruk::Controller::hello - Hello World!
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
Hello World!.
|
||
|
|
|
||
|
|
=head1 METHODS
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
|
||
|
|
=head2 index
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
sub index {
|
||
|
|
my ( $c ) = @_;
|
||
|
|
$c->stash->{title} = 'Hello World!';
|
||
|
|
$c->stash->{template} = 'hello.tt';
|
||
|
|
$c->stash->{hello_var} = 'Hello World!'; # This is our magic variable
|
||
|
|
}
|
||
|
|
|
||
|
|
=head1 LICENSE
|
||
|
|
|
||
|
|
This library is free software, you can redistribute it and/or modify
|
||
|
|
it under the same terms as Perl itself.
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
1;
|