[gitmo/Moose.git] / t / cmop / 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
38bf2a25	1	use strict;
	2	use warnings;
	3	use Test::More;
	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	}
	18
	19	done_testing;