1 2 3 4 5 6 7 8 9 10
package Foo; use Moose; has bar => (is => 'ro'); sub meth { my $error; } no Moose; 1;