One Hat Cyber Team

Your IP : 216.73.216.240

Server IP : 162.240.106.28

Server : Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64

Server Software : Apache

PHP Version : 7.1.33

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Data-Dump-1.22/t/

View File Name : scalar-obj.t

print "1..3\n";

use Data::Dump qw(dump); 

$a = 42;
bless \$a, "Foo";

my $d = dump($a);

print "$d\n";
print "not " unless $d eq q(do {
  my $a = 42;
  bless \$a, "Foo";
  $a;
});
print "ok 1\n";

$d = dump(\$a);
print "$d\n";
print "not " unless $d eq q(bless(do{\\(my $o = 42)}, "Foo"));
print "ok 2\n";

$d = dump(\\$a);
print "$d\n";
print "not " unless $d eq q(\\bless(do{\\(my $o = 42)}, "Foo"));
print "ok 3\n";