[gitmo/Class-MOP.git] / t / 311_inline_and_dollar_at.t

use strict;
use warnings;
use Test::More;
use Class::MOP;


{
    package Foo;

    my $meta = Class::MOP::Class->initialize(__PACKAGE__);

    $@ = 'dollar at';

    $meta->make_immutable;

    ::is( $@, 'dollar at', '$@ is untouched after immutablization' );
}

done_testing;
Commit	Line	Data
e24b19fb	1	use strict;
e24b19fb	2	use warnings;
e24b19fb	3	use Test::More;
e24b19fb	4	use Class::MOP;
	5
	6
	7	{
	8	package Foo;
	9
	10	my $meta = Class::MOP::Class->initialize(__PACKAGE__);
	11
	12	$@ = 'dollar at';
	13
	14	$meta->make_immutable;
	15
	16	::is( $@, 'dollar at', '$@ is untouched after immutablization' );
	17	}
86a4d873	18
86a4d873	19	done_testing;