version 1.1, 2010/01/19 03:18:34 |
version 1.3, 2010/01/26 06:03:11 |
|
|
package Text::Todo::REST::API::Representations; |
package Text::Todo::REST::API::Representations; |
|
|
# $AFresh1$ |
# $AFresh1: Representations.pm,v 1.2 2010/01/23 07:04:43 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
use Carp; |
use Carp; |
|
|
use Class::Std::Utils; |
use Class::Std::Utils; |
use Data::Dumper; |
|
|
|
use version; our $VERSION = qv('0.0.1'); |
use version; our $VERSION = qv('0.0.1'); |
|
|
|
|
{ |
{ |
my @attr_refs = \( |
my @attr_refs = \(); |
my %todo_of, |
|
); |
|
|
|
sub new { |
sub new { |
my ( $class, $options ) = @_; |
my ( $class, $options ) = @_; |
|
|
return $self; |
return $self; |
} |
} |
|
|
sub content_type { return } |
sub content_type {return} |
sub can_format { return } |
sub can_render {return} |
|
|
sub fail { |
sub _fail { |
my ( $self, @message ) = @_; |
my ( $self, @message ) = @_; |
croak(@message); |
croak(@message); |
} |
} |