The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package Test::ConfigFromFile::Command::moo;
use Moose;
use YAML();

extends qw(MooseX::App::Cmd::Command);
with 'MooseX::ConfigFromFile';

=head1 NAME

Test::MyCmd::Command::moo - reads from config file

=cut

has 'moo' => (
    isa => "ArrayRef",
    is  => "ro",
    required => 1,
    auto_deref => 1,
    documentation => "required option field",
);

sub run {
  my ($self, $opt, $arg) =@_;

  die ("cows go " . join(' ', $self->moo));
}

sub get_config_from_file {
    my ($self, $file) = @_;

    return YAML::LoadFile($file);
}

1;