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	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	use Frey::HTML;
12	use Strix::User;
13
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	warn "req ref = ",ref($req);
30
31	die "req: ",ref($req) if ref($req) ne 'Continuity::RequestHolder';
32
33	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	if ( ! $user ) {
39	$req->conn->send_status_line( 404, "user $id" );
40	$req->print( "Can't find user with id $id\n$@" );
41	} else {
42	$req->print( Frey::HTML->page( 'show-user', $req, $user ) );
43	};
44	};
45