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

use strict;
use warnings;

use Test::More;

plan tests => 1;

use Class::MOP;


{
    package Foo;

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

    $@ = 'dollar at';

    $meta->make_immutable;

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