MooseX::Role::Cmd::Meta::Attribute::Trait - Optional meta attribute trait for custom option names


MooseX-Role-Cmd documentation Contained in the MooseX-Role-Cmd distribution.

Index


Code Index:

NAME

Top

MooseX::Role::Cmd::Meta::Attribute::Trait - Optional meta attribute trait for custom option names

SYNOPSIS

Top

    package MyApp::Cmd::SomeScript;

    with 'MooseX::Role::Cmd';

    has 'basic'   => (
        isa             => 'Str',
        is              => 'rw',
    );

    has 'prefix'   => (
        traits          => [ 'CmdOpt' ],
        isa             => 'Str',
        is              => 'rw',
        cmdopt_prefix   => '-',
    );

    has 'rename'   => (
        traits          => [ 'CmdOpt' ],
        isa             => 'Str',
        is              => 'rw',
        cmdopt_name     => '+alt_name',
    );

    


    $cmd = MyApp::Cmd::SomeScript->new( basic => 'foo', prefix => 'bar', rename => 'foobar' );

    $cmd->run();

    # somescript --basic foo -prefix bar +alt_name foobar

DESCRIPTION

Top

Provides some extra markup to help MooseX::Role::Cmd decide how to use command line parameters.

ATTRIBUTES

Top

cmdopt_prefix

Forces the command prefix to be a certain character. This was introduced to allow parameters to be specified as "-param" or "--param"

has_cmdopt_prefix

Test for attribute above

cmdopt_name

Forces the command options name to be the passed string. This was introduced to allow parameters to have a different name to the attribute.

This option will override the cmdopt_prefix attribute.

has_cmdopt_name

Test for attribute above

cmdopt_env

This attribute trait can be used to specify an environment variable rather than a command line option.

    has 'home_dir' => (
        traits => [ 'CmdOpt' ],
        is => 'rw',
        isa => 'Str',
        cmdopt_env => 'APP_HOME',
        default => '/my/app/home'
    );

    # $ENV{APP_HOME} = /my/app/home

has_cmdopt_env

Test for attribute above

BUGS

Top

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Top

Ian Sillitoe <ian.sillitoe@gmail.com>

SEE ALSO

Top

The idea for this code was ripped kicking and screaming from MooseX::Getopt::Meta::Attribute::Trait

COPYRIGHT AND LICENSE

Top


MooseX-Role-Cmd documentation Contained in the MooseX-Role-Cmd distribution.
package MooseX::Role::Cmd::Meta::Attribute::Trait;
use Moose::Role;
use Moose::Util::TypeConstraints;

has 'cmdopt_prefix' => (
    is        => 'rw',
    isa       => 'Str',
    predicate => 'has_cmdopt_prefix',
);

has 'cmdopt_name' => (
    is        => 'rw',
    isa       => 'Str',
    predicate => 'has_cmdopt_name',
);

has 'cmdopt_env' => (
    is        => 'rw',
    isa       => 'Str',
    predicate => 'has_cmdopt_env',
);

no Moose::Role;

# register this as a metaclass alias ...
package # stop confusing PAUSE 
    Moose::Meta::Attribute::Custom::Trait::CmdOpt;
sub register_implementation { 'MooseX::Role::Cmd::Meta::Attribute::Trait' }

1;

__END__