X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Action-REST.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FDeserialize%2FXML%2FSimple.pm;h=2e53359079e2b090cb0a2df268f06c764cd2ba55;hp=6e97d723989e5746b06ccc95038a447d3d58ebbb;hb=3bb36dcaabf34fef5c15b1bb74c5eb198a7f5168;hpb=e601addaf89882fccbc824c1a53328f0d049b32b diff --git a/lib/Catalyst/Action/Deserialize/XML/Simple.pm b/lib/Catalyst/Action/Deserialize/XML/Simple.pm index 6e97d72..2e53359 100644 --- a/lib/Catalyst/Action/Deserialize/XML/Simple.pm +++ b/lib/Catalyst/Action/Deserialize/XML/Simple.pm @@ -1,16 +1,12 @@ -# -# Catlyst::Action::Deserialize::XML::Simple.pm -# Created by: Adam Jacob, Marchex, -# Created on: 10/12/2006 03:00:32 PM PDT -# -# $Id$ - package Catalyst::Action::Deserialize::XML::Simple; -use strict; -use warnings; +use Moose; +use namespace::autoclean; + +extends 'Catalyst::Action'; -use base 'Catalyst::Action'; +our $VERSION = '0.82'; +$VERSION = eval $VERSION; sub execute { my $self = shift; @@ -20,7 +16,8 @@ sub execute { require XML::Simple; }; if ($@) { - $c->log->debug("Could not load XML::Simple, refusing to deserialize: $@"); + $c->log->debug("Could not load XML::Simple, refusing to deserialize: $@") + if $c->debug; return 0; } @@ -41,7 +38,8 @@ sub execute { } } else { $c->log->debug( - 'I would have deserialized, but there was nothing in the body!'); + 'I would have deserialized, but there was nothing in the body!') + if $c->debug; } return 1; }