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 }