version 1.2, 2010/01/17 23:15:00 |
version 1.3, 2010/01/18 00:30:55 |
|
|
package Text::Todo::REST::API::md5; |
package Text::Todo::REST::API::md5; |
|
|
# $AFresh1$ |
# $AFresh1: md5.pm,v 1.2 2010/01/17 23:15:00 andrew Exp $ |
|
|
use base 'Text::Todo::REST::API'; |
use base 'Text::Todo::REST::API'; |
&Text::Todo::REST::API::RegisterFormatHandler(__PACKAGE__, 'md5'); |
&Text::Todo::REST::API::RegisterFormatHandler(__PACKAGE__, 'md5'); |
|
|
use version; our $VERSION = qv('0.0.1'); |
use version; our $VERSION = qv('0.0.1'); |
|
|
{ |
{ |
|
sub content_type { return 'text/plain' }; |
|
|
sub Dump { |
sub Dump { |
my ($self, @output) = @_; |
my ($self, @output) = @_; |
my $action = $self->_action; |
my $action = $self->_action; |