1#!./perl -w
2
3use strict;
4use warnings;
5
6use Data::Dumper;
7
8use Test::More tests => 4;
9
10package Foo;
11use overload '""' => 'as_string';
12
13sub new { bless { foo => "bar" }, shift }
14sub as_string { "%%%%" }
15
16package main;
17
18my $f = Foo->new;
19
20isa_ok($f, 'Foo');
21is("$f", '%%%%', 'String overloading works');
22
23my $d = Dumper($f);
24
25like($d, qr/bar/);
26like($d, qr/Foo/);
27
28