From 80e2994434f3c840ce12546351ab9fd20cdd3aaa Mon Sep 17 00:00:00 2001
From: DongHun Kwak <dh0128.kwak@samsung.com>
Date: Tue, 19 Jul 2022 16:23:48 +0900
Subject: Imported Upstream version 4.03

---
 t/52_object.t | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 't/52_object.t')

diff --git a/t/52_object.t b/t/52_object.t
index 1acf5ea..212f741 100644
--- a/t/52_object.t
+++ b/t/52_object.t
@@ -1,6 +1,17 @@
 # copied over from JSON::XS and modified to use JSON
 
+package JSON::freeze;
+
+1;
+
+package JSON::tojson;
+
+1;
+
+package main;
+
 use strict;
+use warnings;
 use Test::More;
 BEGIN { $^W = 0 } # hate
 
@@ -52,8 +63,8 @@ sub JSON::freeze::THAW {
    777
 }
 
-my $obj = bless { k => 1 }, JSON::freeze::;
-my $enc = $json->encode ($obj);
+$obj = bless { k => 1 }, JSON::freeze::;
+$enc = $json->encode ($obj);
 ok ($enc eq '("JSON::freeze")[3,1,2]');
 
 my $dec = $json->decode ($enc);
-- 
cgit v1.2.3