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

# Test the Maxrecurse option

use strict;
use Test::More tests => 32;
use Data::Dumper;

SKIP: {
    skip "no XS available", 16
      if $Data::Dumper::Useperl;
    local $Data::Dumper::Useperl = 1;
    test_recursion();
}

test_recursion();

sub test_recursion {
    my $pp = $Data::Dumper::Useperl ? "pure perl" : "XS";
    $Data::Dumper::Purity = 1; # make sure this has no effect
    $Data::Dumper::Indent = 0;
    $Data::Dumper::Maxrecurse = 1;
    is(eval { Dumper([]) }, '$VAR1 = [];', "$pp: maxrecurse 1, []");
    is(eval { Dumper([[]]) }, undef, "$pp: maxrecurse 1, [[]]");
    ok($@, "exception thrown");
    is(eval { Dumper({}) }, '$VAR1 = {};', "$pp: maxrecurse 1, {}");
    is(eval { Dumper({ a => 1 }) }, q($VAR1 = {'a' => 1};),
       "$pp: maxrecurse 1, { a => 1 }");
    is(eval { Dumper({ a => {} }) }, undef, "$pp: maxrecurse 1, { a => {} }");
    ok($@, "exception thrown");
    is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 1, \\1");
    is(eval { Dumper(\\1) }, undef, "$pp: maxrecurse 1, \\1");
    ok($@, "exception thrown");
    $Data::Dumper::Maxrecurse = 3;
    is(eval { Dumper(\1) }, "\$VAR1 = \\1;", "$pp: maxrecurse 3, \\1");
    is(eval { Dumper(\(my $s = {})) }, "\$VAR1 = \\{};", "$pp: maxrecurse 3, \\{}");
    is(eval { Dumper(\(my $s = { a => [] })) }, "\$VAR1 = \\{'a' => []};",
       "$pp: maxrecurse 3, \\{ a => [] }");
    is(eval { Dumper(\(my $s = { a => [{}] })) }, undef,
       "$pp: maxrecurse 3, \\{ a => [{}] }");
    ok($@, "exception thrown");
    $Data::Dumper::Maxrecurse = 0;
    is(eval { Dumper([[[[[]]]]]) }, q($VAR1 = [[[[[]]]]];),
       "$pp: check Maxrecurse doesn't set limit to 0 recursion");
}