projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c1fc286ad60e00ee9083618f1ad358217be3a27a
[gitmo/Class-MOP.git]
/
t
/
311_inline_and_dollar_at.t
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
}