Commit | Line | Data |
4e138785 |
1 | package THSelenium::Test::Controller::Root; |
2 | use Moose; |
3 | use namespace::autoclean; |
4 | |
5 | BEGIN { extends 'Catalyst::Controller' } |
6 | |
7 | # |
8 | # Sets the actions in this controller to be registered with no prefix |
9 | # so they function identically to actions created in MyApp.pm |
10 | # |
11 | __PACKAGE__->config(namespace => ''); |
12 | |
13 | =head1 NAME |
14 | |
15 | THSelenium::Test::Controller::Root - Root Controller for THSelenium::Test |
16 | |
17 | =head1 DESCRIPTION |
18 | |
19 | [enter your description here] |
20 | |
21 | =head1 METHODS |
22 | |
23 | =head2 index |
24 | |
25 | The root page (/) |
26 | |
27 | =cut |
28 | |
29 | sub index :Path :Args(0) { |
30 | my ($self, $c) = @_; |
31 | $c->stash->{template} = 'index.tt'; |
32 | } |
33 | |
34 | sub basic :Path('/basic') :Args(0) { |
35 | my ( $self, $c ) = @_; |
36 | $c->stash->{template} = 'basic.tt'; |
37 | } |
38 | |
39 | sub echo :Path('/echo') :Args(0) { |
40 | my ($self, $c) = @_; |
41 | if(my $query = $c->req->params->{query}) { |
42 | $c->stash->{query} = $query; |
43 | } |
44 | $c->stash->{template} = 'echo.tt'; |
45 | } |
46 | |
47 | =head2 default |
48 | |
49 | Standard 404 error page |
50 | |
51 | =cut |
52 | |
53 | sub default :Path { |
54 | my ( $self, $c ) = @_; |
55 | $c->response->body( 'Page not found' ); |
56 | $c->response->status(404); |
57 | } |
58 | |
59 | =head2 end |
60 | |
61 | Attempt to render a view, if needed. |
62 | |
63 | =cut |
64 | |
65 | sub end : ActionClass('RenderView') {} |
66 | |
67 | =head1 AUTHOR |
68 | |
69 | & |
70 | |
71 | =head1 LICENSE |
72 | |
73 | This library is free software. You can redistribute it and/or modify |
74 | it under the same terms as Perl itself. |
75 | |
76 | =cut |
77 | |
78 | __PACKAGE__->meta->make_immutable; |
79 | |
80 | 1; |