version 1.19, 2010/02/16 06:12:26 |
version 1.20, 2010/04/30 00:04:29 |
|
|
package Text::Todo::REST::API; |
package Text::Todo::REST::API; |
|
|
# $AFresh1: API.pm,v 1.18 2010/02/13 21:48:28 andrew Exp $ |
# $AFresh1: API.pm,v 1.19 2010/02/16 06:12:26 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
return %options; |
return %options; |
} |
} |
|
|
sub GET { |
sub GET { return shift->_handle_action( 'GET', @_ ) } |
my ( $self, @args ) = @_; |
sub POST { return shift->_handle_action( 'POST', @_ ) } |
return $self->_handle_action( 'GET', @args ); |
sub PUT { return shift->_handle_action( 'PUT', @_ ) } |
} |
sub DELETE { return shift->_handle_action( 'DELETE', @_ ) } |
|
|
sub POST { |
|
my ( $self, @args ) = @_; |
|
return $self->_handle_action( 'POST', @args ); |
|
} |
|
|
|
sub PUT { |
|
my ( $self, @args ) = @_; |
|
return $self->_handle_action( 'PUT', @args ); |
|
} |
|
|
|
sub DELETE { |
|
my ( $self, @args ) = @_; |
|
return $self->_handle_action( 'DELETE', @args ); |
|
} |
|
|
|
sub fail { |
sub fail { |
my ( $self, @message ) = @_; |
my ( $self, @message ) = @_; |