store JSON::Any object that holds the reference to the current encode…

…r object. This prevents JSON::Any to change the backend later, by modules like WWW::Facebook::API.
arcanez · Aug 3, 2007 · f35892f · f35892f
1 parent 53aa595
commit f35892f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Catalyst/View/JSON.pm b/lib/Catalyst/View/JSON.pm
@@ -29,7 +29,8 @@ sub new {
 
     eval {
         JSON::Any->import($driver);
-        $self->json_dumper(sub { JSON::Any->objToJson($_[0]) });
+        my $json = JSON::Any->new; # create the copy of JSON handler
+        $self->json_dumper(sub { $json->objToJson($_[0]) });
     };
 
     if (my $error = $@) {