Move Data::Dumper from ext/ to dist/
[perl.git] / dist / Data-Dumper / t / overload.t
1 #!./perl -w
2
3 BEGIN {
4     if ($ENV{PERL_CORE}){
5         require Config; import Config;
6         no warnings 'once';
7         if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
8             print "1..0 # Skip: Data::Dumper was not built\n";
9             exit 0;
10         }
11     }
12 }
13
14 use Data::Dumper;
15
16 print "1..1\n";
17
18 package Foo;
19 use overload '""' => 'as_string';
20
21 sub new { bless { foo => "bar" }, shift }
22 sub as_string { "%%%%" }
23
24 package main;
25
26 my $f = Foo->new;
27
28 print "#\$f=$f\n";
29
30 $_ = Dumper($f);
31 s/^/#/mg;
32 print $_;
33
34 print "not " unless /bar/ && /Foo/;
35 print "ok 1\n";
36