Commit | Line | Data |
---|---|---|
e24b19fb | 1 | use strict; |
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 | |
19 | done_testing; |