Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
bless.t	1.33 KB	-r--r--r--	2014-12-27 11:48
bless_var_method.t	2.31 KB	-r--r--r--	2014-12-27 11:48
bugs.t	3.61 KB	-r--r--r--	2014-12-27 11:48
deparse.t	2.44 KB	-r--r--r--	2014-12-27 11:48
dumper.t	38.19 KB	-r--r--r--	2014-12-27 11:49
dumpperl.t	3.7 KB	-r--r--r--	2014-12-27 11:48
freezer.t	3.14 KB	-r--r--r--	2014-12-27 11:48
freezer_useperl.t	2.72 KB	-r--r--r--	2014-12-27 11:48
indent.t	3 KB	-r--r--r--	2014-12-27 11:48
misc.t	5.95 KB	-r--r--r--	2014-12-27 11:48
names.t	2.1 KB	-r--r--r--	2014-12-27 11:48
overload.t	610 B	-r--r--r--	2014-12-27 11:48
pair.t	1.87 KB	-r--r--r--	2014-12-27 11:48
perl-74170.t	5.33 KB	-r--r--r--	2014-12-27 11:48
purity_deepcopy_maxdepth.t	10.76 KB	-r--r--r--	2014-12-27 11:48
qr.t	515 B	-r--r--r--	2014-12-27 11:48
quotekeys.t	4.08 KB	-r--r--r--	2014-12-27 11:48
recurse.t	1.64 KB	-r--r--r--	2015-01-10 12:06
seen.t	2.56 KB	-r--r--r--	2014-12-27 11:48
sortkeys.t	5.85 KB	-r--r--r--	2014-12-27 11:48
sparseseen.t	2.46 KB	-r--r--r--	2014-12-27 11:48
terse.t	1.33 KB	-r--r--r--	2014-12-27 11:48
toaster.t	2.43 KB	-r--r--r--	2014-12-27 11:48
values.t	1.06 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl
use strict;
use warnings;

use Data::Dumper;
use Test::More tests => 6;
use lib qw( ./t/lib );
use Testing qw( _dumptostr );

my $hash = { foo => 42 };

for my $useperl (0..1) {
    my $dumper = Data::Dumper->new([$hash]);
    $dumper->Terse(1);
    $dumper->Indent(2);
    $dumper->Useperl($useperl);

is $dumper->Dump, <<'WANT', "Terse(1), Indent(2), Useperl($useperl)";
{
  'foo' => 42
}
WANT
}

my (%dumpstr);
my $dumper;

$dumper = Data::Dumper->new([$hash]);
$dumpstr{noterse} = _dumptostr($dumper);
# $VAR1 = {
#           'foo' => 42
#         };

$dumper = Data::Dumper->new([$hash]);
$dumper->Terse();
$dumpstr{terse_no_arg} = _dumptostr($dumper);

$dumper = Data::Dumper->new([$hash]);
$dumper->Terse(0);
$dumpstr{terse_0} = _dumptostr($dumper);

$dumper = Data::Dumper->new([$hash]);
$dumper->Terse(1);
$dumpstr{terse_1} = _dumptostr($dumper);
# {
#   'foo' => 42
# }

$dumper = Data::Dumper->new([$hash]);
$dumper->Terse(undef);
$dumpstr{terse_undef} = _dumptostr($dumper);

is($dumpstr{noterse}, $dumpstr{terse_no_arg},
    "absence of Terse is same as Terse()");
is($dumpstr{noterse}, $dumpstr{terse_0},
    "absence of Terse is same as Terse(0)");
isnt($dumpstr{noterse}, $dumpstr{terse_1},
    "absence of Terse is different from Terse(1)");
is($dumpstr{noterse}, $dumpstr{terse_undef},
    "absence of Terse is same as Terse(undef)");