lib/Frey/REST.pm

package Frey::REST;

use strict;
use warnings;

use Template::Declare::Tags; # defaults to 'HTML'
use base 'Template::Declare';

use Data::Dump qw/dump/;

use Frey::HTML;
use Strix::User;

=head1 NAME

Frey::REST - dispatch REST like URLs into method calls

=cut

=head1 METHODS

=head2 user

=cut

template 'user' => sub {
        my ( $self, $req ) = @_;

        warn "req ref = ",ref($req);

        die "req: ",ref($req) if ref($req) ne 'Continuity::RequestHolder';

        my $id = $req->param('id') if $req->can('param');

        my $user = eval { Strix::User->new( id => $id ); };
        warn "## user $id: $@";

        if ( ! $user ) {
                $req->conn->send_status_line( 404, "user $id" );
                $req->print( "Can't find user with id $id\n$@" );
        } else {
                $req->print( Frey::HTML->page( 'show-user', $req, $user ) );
        };
};

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	dpavlin	26
11	dpavlin	23	use Frey::HTML;
12	dpavlin	26	use Strix::User;
13	dpavlin	19
14			=head1 NAME
15
16			Frey::REST - dispatch REST like URLs into method calls
17
18			=cut
19
20			=head1 METHODS
21
22			=head2 user
23
24			=cut
25
26			template 'user' => sub {
27			my ( $self, $req ) = @_;
28
29	dpavlin	26	warn "req ref = ",ref($req);
30	dpavlin	19
31	dpavlin	26	die "req: ",ref($req) if ref($req) ne 'Continuity::RequestHolder';
32	dpavlin	19
33	dpavlin	26	my $id = $req->param('id') if $req->can('param');
34
35			my $user = eval { Strix::User->new( id => $id ); };
36			warn "## user $id: $@";
37
38	dpavlin	19	if ( ! $user ) {
39	dpavlin	23	$req->conn->send_status_line( 404, "user $id" );
40	dpavlin	26	$req->print( "Can't find user with id $id\n$@" );
41	dpavlin	19	} else {
42	dpavlin	23	$req->print( Frey::HTML->page( 'show-user', $req, $user ) );
43			};
44	dpavlin	19	};
45