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