/[Frey]/trunk/lib/Frey/REST.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/lib/Frey/REST.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (hide annotations)
Sun Jun 29 12:55:39 2008 UTC (15 years, 9 months ago) by dpavlin
File size: 623 byte(s)
- create slim server caller in bin for Frey::Server
- restructure view packages
- beginning of rest dispatcher based on Template::Declare
1 dpavlin 19 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    
11     =head1 NAME
12    
13     Frey::REST - dispatch REST like URLs into method calls
14    
15     =cut
16    
17     =head1 METHODS
18    
19     =head2 user
20    
21     =cut
22    
23     template 'user' => sub {
24     my ( $self, $req ) = @_;
25    
26     my $id = $req->param('id');
27     $id = 1 unless $id =~ m/^\d+$/;
28    
29     use Strix::User;
30     my $user = Strix::User->new( id => $id );
31    
32     if ( ! $user ) {
33     $req->conn->send_status_line( 500, "user $id" );
34    
35     $req->print( "Can't find user with id $id" );
36     } else {
37     $req->print( HTML->view( 'user', $user ) );
38     }
39     };
40    

  ViewVC Help
Powered by ViewVC 1.1.26