view release on metacpan or  search on metacpan

lib/Apache2/REST/Handler/test.pm  view on Meta::CPAN

package Apache2::REST::Handler::test ;

use  Apache2::REST::Handler::test::user ;

use strict ;
use base qw/Apache2::REST::Handler/  ;

use Apache2::Const qw( 
                       :common :http 
                       );

=head2 NAME

Apache2::REST::Handler::test - test handler access '/test/' to test your installation

=cut

=head2 GET

=cut

sub GET{
    my ($self, $req , $resp ) = @_ ;
    
    if ( $req->param('die') ){
        die "This is an error\n" ;
    }
    
    $resp->data()->{'test_mess'} = 'This is a GET test message' ;
    ## It is OK
    return Apache2::Const::HTTP_OK ;
}

=head2 POST

Performs a fake POST

=cut

sub POST{
    my ($self, $req , $resp ) = @_ ;
    $resp->data()->{'test_mess'} = 'This is a POST test message' ;
    ## It is OK
    return Apache2::Const::HTTP_OK ;
}

=head2 PUT

Performs a fake PUT

=cut

sub PUT{
    my ($self, $req , $resp ) = @_ ;
    $resp->data()->{'test_mess'} = 'This is a PUT test message' ;
    ## It is OK
    return Apache2::Const::HTTP_OK ;
}

=head2 DELETE

Performs a fake DELETE

=cut

sub DELETE{
    my ($self, $req , $resp ) = @_ ;
    $resp->data()->{'test_mess'} = 'This is a DELETE test message' ;
    ## It is OK
    return Apache2::Const::HTTP_OK ;
}


=head2 buildNext

Builds a new test::user using the fragment after C<test/>.
For instance, if request resource is C<test/1/> , it will build
a Apache2::REST::Handler::test::user containing the user id C<1>

=cut

sub buildNext{
    my ( $self , $frag , $req ) = @_ ;
    
    my $subh = Apache2::REST::Handler::test::user->new($self) ;
    $subh->{'userid'} = $frag  ;
    return $subh ;
}

=head2 isAuth

Any method is allowed

=cut

sub isAuth{
    my ($self , $method , $req ) = @_ ;
    return 1 ;
}



1;