version 1.2, 2010/01/19 03:18:34 |
version 1.3, 2010/01/19 03:20:14 |
|
|
package Text::Todo::REST::API::Representations::md5; |
package Text::Todo::REST::API::Representations::md5; |
|
|
# $AFresh1: md5.pm,v 1.1 2010/01/18 03:51:40 andrew Exp $ |
# $AFresh1: md5.pm,v 1.2 2010/01/19 03:18:34 andrew Exp $ |
|
|
use base 'Text::Todo::REST::API::Representations'; |
use base 'Text::Todo::REST::API::Representations'; |
|
|
|
|
|
|
sub can_format { |
sub can_format { |
my ( $class, $format ) = @_; |
my ( $class, $format ) = @_; |
7 eturn if !defined $format; |
return if !defined $format; |
|
|
my %handled_formats = map { $_ => 1 } qw( |
my %handled_formats = map { $_ => 1 } qw( |
md5 |
md5 |