+Tue 21 Feb 2012 11:40:00 GMT - Release 0.98
+ More fixes as per last release.
+
Tue 21 Feb 2012 09:58:00 GMT - Release 0.97
Fix test with latest Catalyst version which passes _log into
requests.
use MRO::Compat;
use Moose::Util::TypeConstraints;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
has plugins => ( is => 'rw' );
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
my $compartment = Safe->new;
$compartment->permit_only( qw(padany null lineseq const pushmark list anonhash anonlist refgen leaveeval undef) );
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
use JSON;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action::Deserialize';
use HTTP::Body;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
our $NO_HTTP_BODY_TYPES_INITIALIZATION;
BEGIN { require 5.008001; }
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub BUILDARGS {
use Moose;
use namespace::autoclean;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
extends 'Catalyst::Action::REST';
use Module::Pluggable::Object;
use MRO::Compat;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
has _encoders => (
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
use Data::Serializer;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
use JSON ();
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
has encoder => (
extends 'Catalyst::Action::Serialize::JSON';
use JSON::XS ();
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub _build_encoder {
extends 'Catalyst::Action::Serialize::JSON';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
after 'execute' => sub {
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
extends 'Catalyst::Action';
use YAML::Syck;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
use YAML::Syck;
use URI::Find;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
sub execute {
use Catalyst::Request::REST;
use Catalyst::Utils ();
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
after BUILDARGS => sub {
use Moose;
use namespace::autoclean;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
=head1 NAME
extends 'Catalyst::Request';
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
# Please don't take this as a recommended way to do things.
use namespace::autoclean;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
extends 'Catalyst::Request::REST';
use HTTP::Headers::Util qw(split_header_words);
use namespace::autoclean;
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
has [qw/ data accept_only /] => ( is => 'rw' );
with 'Catalyst::TraitFor::Request::REST';
-our $VERSION = '0.97';
+our $VERSION = '0.98';
$VERSION = eval $VERSION;
has _determined_real_method => (
{
for my $method (qw( PUT DELETE )) {
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->method('POST');
$req->{_context} = 'MockContext';
$req->parameters( { 'x-tunneled-method' => $method } );
{
for my $method (qw( PUT DELETE )) {
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->method('POST');
$req->{_context} = 'MockContext';
$req->header( 'x-http-method-override' => $method );
{
for my $method (qw( PUT DELETE )) {
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->method('GET');
$req->{_context} = 'MockContext';
$req->parameters( { 'x-tunneled-method' => $method } );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( {} );
{
for my $with (qw( HTTP.Request XMLHttpRequest )) {
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->headers(
HTTP::Headers->new( 'X-Requested-With' => $with ) );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( { 'content-type' => 'text/json' } );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( { 'content-type' => 'text/html' } );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( {} );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( {} );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( {} );
}
{
- my $req = $class->new();
+ my $req = $class->new(
+ _log => Catalyst::Log->new,
+ );
$req->{_context} = 'MockContext';
$req->method('GET');
$req->parameters( {} );
use Catalyst::TraitFor::Request::REST;
use Moose::Meta::Class;
use HTTP::Headers;
+use Catalyst::Log;
my $anon_class = Moose::Meta::Class->create_anon_class(
superclasses => ['Catalyst::Request'],
for my $class ( $anon_class, 'Catalyst::Request::REST' ) {
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new(
+ _log => Catalyst::Log->new
+ );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( { 'content-type' => 'text/fudge' } );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( { 'content-type' => 'text/fudge' } );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );