mx-getopt-delegation

test.pl

#!/usr/bin/perl
package Context;

use Moose;

has [qw( a b c )] => (
    is => 'ro',
    isa => 'Bool',
    default => 1,
);

package Script;

use Moose;
with 'MooseX::Getopt';

has 'context' => (
    is => 'ro',
    isa => 'Context',
    handles => [qw( a b c )], 
);

sub main {
    my $self = shift;
    my $context = $self->context;
    if ($context->a) {
        # do a
    }
    if ($context->b) {
        # do b
    }
    if ($context->c) {
        # do c
    }
}

__PACKAGE__->new_with_options->main;