[gitmo/Moose.git] / t / bugs / constructor_object_overload.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

{
    package Foo;

    use Moose;

    use overload '""' => sub {''};

    sub bug { 'plenty' }

    __PACKAGE__->meta->make_immutable;
}

ok(Foo->new()->bug(), 'call constructor on object reference with overloading');

done_testing;
Commit	Line	Data
5d27ac73	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
a28e50e4	4	use Test::More;
5d27ac73	5
	6	{
	7	package Foo;
	8
	9	use Moose;
	10
	11	use overload '""' => sub {''};
	12
	13	sub bug { 'plenty' }
	14
	15	__PACKAGE__->meta->make_immutable;
	16	}
	17
	18	ok(Foo->new()->bug(), 'call constructor on object reference with overloading');
	19
a28e50e4	20	done_testing;