| Commit | Line | Data |
|---|
| 4f6d213e |
1 | #!/usr/bin/perl\r |
| 2 | # Root.pm \r |
| 3 | # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>\r |
| 4 | \r |
| 5 | package TestApp::Controller::Root;\r |
| 6 | use base qw(Catalyst::Controller);\r |
| 7 | __PACKAGE__->config->{namespace} = q{};\r |
| 8 | my @words = qw(foo bar baz bat qux quux);\r |
| 9 | \r |
| 10 | sub index : Private {\r |
| 11 | my ($self, $c, @args) = @_;\r |
| 12 | my $words = $c->uri_for('/words');\r |
| 13 | $c->response->body(<<"HERE");\r |
| 14 | <html>\r |
| 15 | <head>\r |
| 16 | <title>TestApp</title>\r |
| 17 | </head>\r |
| 18 | <body>\r |
| 19 | <h1>TestApp</h1>\r |
| 20 | <p>This is the TestApp.</p>\r |
| 21 | <p><a href="$words">Click here</a> to <i>see</i> some words.</p>\r |
| 22 | </body>\r |
| 23 | </html> \r |
| 24 | HERE\r |
| 25 | }\r |
| 26 | \r |
| 27 | sub words : Local {\r |
| 28 | my ($self, $c, $times) = @_;\r |
| 29 | $times ||= 0;\r |
| 30 | my $html = <<"HEADER";\r |
| 31 | <html>\r |
| 32 | <head>\r |
| 33 | <title>TestApp</title>\r |
| 34 | </head>\r |
| 35 | <body>\r |
| 36 | <h1>TestApp << Words</h1>\r |
| 37 | <p>Here you'll find all things "words" printed $times time(s)!</p>\r |
| 38 | <ul>\r |
| 39 | HEADER\r |
| 40 | local $" = q{ }; # single space\r |
| 41 | $html .= " <li>$_: @words</li>\n" for 1..$times;\r |
| 42 | $html .= <<"FOOTER"; \r |
| 43 | </ul>\r |
| 44 | </body>\r |
| 45 | </html>\r |
| 46 | FOOTER\r |
| 47 | $c->response->body($html);\r |
| 48 | }\r |
| 49 | \r |
| 50 | sub null : Path('/favicon.ico'){\r |
| 51 | my ($self, $c) = @_;\r |
| 52 | $c->response->status(404); # doesn't exist\r |
| 53 | }\r |
| 54 | \r |
| 55 | 1; # true.\r |
| 56 | \r |
projects / catagits/Test-WWW-Selenium-Catalyst.git / blame