package LCFG::Build::Tool::Hello; # -*-cperl-*- use strict; use warnings; use Moose; extends 'LCFG::Build::Tool'; has 'name' => ( is => 'ro', isa => 'Str', default => sub { (getpwuid $< )[6] }, documentation => 'Your name', ); has '+resultsdir' => ( traits => [ 'NoGetopt' ], ); has '+quiet' => ( default => 1, ); sub abstract { return 'Says hello to the world'; } sub run { my ( $self, $opt, $args ) = @_; my $name = $self->name; if ( $self->quiet ) { print "hello $name\n"; } else { print "HELLO $name!\n"; } return; } no Moose; 1;