[gitmo/Mouse.git] / t / 100_bugs / 027_constructor_object_overload.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use strict;
use warnings;
use Test::More;

{
    package Foo;

    use Mouse;

    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
4c98ebb0	1	#!/usr/bin/perl
ee5e6a03	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
4c98ebb0	5	use strict;
4c98ebb0	6	use warnings;
ee5e6a03	7	use Test::More;
4c98ebb0	8
	9	{
	10	package Foo;
	11
	12	use Mouse;
	13
	14	use overload '""' => sub {''};
	15
	16	sub bug { 'plenty' }
	17
	18	__PACKAGE__->meta->make_immutable;
	19	}
	20
	21	ok(Foo->new()->bug(), 'call constructor on object reference with overloading');
	22
ee5e6a03	23	done_testing;