|
use Inline Config => DIRECTORY => './blib_test' ; class Stringify:
def __init__(self, foo):
self.foo = foo
def __str__(self):
return self.foo
class NoString:
def __init__(self, foo):
self.foo = foo
def stringify(foo):
return str(foo)
END
my $stringify = Stringify->new( 'foo' );
my $nostring = NoString->new( 'foo' );
is( "$stringify" , 'foo' );
like( "$nostring" , qr/NoString/ );
is(stringify( bless {}, 'Foo' ), 'stringified' , 'overloaded stringification of Perl objects works' );
use overload '""' => sub { return "stringified" }; |