Parent Directory | Revision Log
another major refactor and version bump [0.01] - return 404 errors for resources which doesn't exist - move HTML page wrapper is now in Fray::HTML->page - dispatch to defined Template::Declare templates - display available templates on status screen - NOTE very clean and unobfuscated mapping - a bits of documentation all over the place
1 | package Frey::REST; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Template::Declare::Tags; # defaults to 'HTML' |
7 | use base 'Template::Declare'; |
8 | |
9 | use Data::Dump qw/dump/; |
10 | use Frey::HTML; |
11 | |
12 | =head1 NAME |
13 | |
14 | Frey::REST - dispatch REST like URLs into method calls |
15 | |
16 | =cut |
17 | |
18 | =head1 METHODS |
19 | |
20 | =head2 user |
21 | |
22 | =cut |
23 | |
24 | template 'user' => sub { |
25 | my ( $self, $req ) = @_; |
26 | |
27 | my $id = $req->param('id'); |
28 | $id = 1 unless $id =~ m/^\d+$/; |
29 | |
30 | use Strix::User; |
31 | my $user = Strix::User->new( id => $id ); |
32 | |
33 | if ( ! $user ) { |
34 | $req->conn->send_status_line( 404, "user $id" ); |
35 | $req->print( "Can't find user with id $id" ); |
36 | } else { |
37 | $req->print( Frey::HTML->page( 'show-user', $req, $user ) ); |
38 | }; |
39 | }; |
40 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |