diff options
Diffstat (limited to 'contrib/perl5/t/lib/dumper-ovl.t')
-rwxr-xr-x | contrib/perl5/t/lib/dumper-ovl.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/contrib/perl5/t/lib/dumper-ovl.t b/contrib/perl5/t/lib/dumper-ovl.t new file mode 100755 index 0000000..db4a5d9 --- /dev/null +++ b/contrib/perl5/t/lib/dumper-ovl.t @@ -0,0 +1,30 @@ +#!./perl -w + +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib' if -d '../lib'; +} + +use Data::Dumper; + +print "1..1\n"; + +package Foo; +use overload '""' => 'as_string'; + +sub new { bless { foo => "bar" }, shift } +sub as_string { "%%%%" } + +package main; + +my $f = Foo->new; + +print "#\$f=$f\n"; + +$_ = Dumper($f); +s/^/#/mg; +print $_; + +print "not " unless /bar/ && /Foo/; +print "ok 1\n"; + |