gistfile1.txt

package Foo;

use Moose;

with 'MooseX::Getopt';

has foo => (
    is       => 'ro',
    isa      => 'Int',
    init_arg => 'bar',
    required => 1,
    documentation => 'foo has init_arg of bar',
);

sub run {
    my $self = shift;
    print $self->foo;
}

__PACKAGE__->meta->make_immutable();
1;

package main;

Foo->new_with_options->run();