The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Foo;
use Moose;

has bar => (is => 'ro');

sub meth { my $error; 3 }

no Moose;

1;