From: Matt S Trout Date: Fri, 8 Jan 2016 19:15:43 +0000 (+0000) Subject: fixup ObjectMangling role X-Git-Tag: v0.001004~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FTak.git;a=commitdiff_plain;h=a3f06b8e3d33347c6a213473cb6be93cf0da75a7 fixup ObjectMangling role --- diff --git a/lib/Tak/Role/ObjectMangling.pm b/lib/Tak/Role/ObjectMangling.pm index 9ef5380..713eca4 100644 --- a/lib/Tak/Role/ObjectMangling.pm +++ b/lib/Tak/Role/ObjectMangling.pm @@ -25,6 +25,7 @@ sub _build_decoder_json { sub encode_objects { my ($self, $data) = @_; + no warnings 'once'; local *UNIVERSAL::TO_JSON = sub { $self->deflate($_[0]) }; decode_json($self->encoder_json->encode($data)); } @@ -34,3 +35,4 @@ sub decode_objects { $self->decoder_json->decode(encode_json($data)); } +1;