[gitmo/Class-MOP.git] / t / 306_rebless_overload.t

use strict;
use warnings;
use Test::More tests => 3;
use Class::MOP;

do {
    package Without::Overloading;
    sub new { bless {}, shift }

    package With::Overloading;
    use base 'Without::Overloading';
    use overload q{""} => sub { "overloaded" };
};

my $without = bless {}, "Without::Overloading";
like("$without", qr/^Without::Overloading/, "no overloading");

my $with = With::Overloading->new;
is("$with", "overloaded", "initial overloading works");


my $meta = Class::MOP::Class->initialize('With::Overloading');

$meta->rebless_instance($without);
is("$without", "overloaded", "overloading after reblessing works");
Commit	Line	Data
4ff22cc5	1	use strict;
	2	use warnings;
	3	use Test::More tests => 3;
	4	use Class::MOP;
	5
	6	do {
	7	package Without::Overloading;
	8	sub new { bless {}, shift }
	9
	10	package With::Overloading;
	11	use base 'Without::Overloading';
	12	use overload q{""} => sub { "overloaded" };
	13	};
	14
	15	my $without = bless {}, "Without::Overloading";
	16	like("$without", qr/^Without::Overloading/, "no overloading");
	17
	18	my $with = With::Overloading->new;
	19	is("$with", "overloaded", "initial overloading works");
	20
	21
	22	my $meta = Class::MOP::Class->initialize('With::Overloading');
	23
	24	$meta->rebless_instance($without);
	25	is("$without", "overloaded", "overloading after reblessing works");
	26