[~/perl/test]# cat CriticTest.pm
package CriticTest;

use Moose;

our $VERSION = '1.01';

has 'needs_build' => (
    isa     => 'Int',
    is      => 'rw',
    lazy    => 1,
    builder => '_build_needs_build',
);

sub _build_needs_build {
    my $self = shift;
    my %args = @_;

    return $self;
}

1;

__END__