יובל קוג'מן (Yuval Kogman) > MooseX-App-Cmd-0.06 > MooseX::App::Cmd

Download:
MooseX-App-Cmd-0.06.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  3
Open  0
View/Report Bugs
Module Version: 0.06   Source   Latest Release: MooseX-App-Cmd-0.28-TRIAL

NAME ^

MooseX::App::Cmd - Mashes up MooseX::Getopt and App::Cmd.

SYNOPSIS ^

See "SYNOPSIS" in App::Cmd.

    package YourApp::Cmd;
        use Moose;

    extends qw(MooseX::App::Cmd);



    package YourApp::Cmd::Command::blort;
    use Moose;

    extends qw(MooseX::App::Cmd::Command);

    has blortex => (
        isa => "Bool",
        is  => "rw",
        cmd_aliases   => "X",
        documentation => "use the blortext algorithm",
    );

    has recheck => (
        isa => "Bool",
        is  => "rw",
        cmd_aliases => "r",
        documentation => "recheck all results",
    );

    sub execute {
        my ( $self, $opt, $args ) = @_;

        # you may ignore $opt, it's in the attributes anyway
        
        my $result = $self->blortex ? blortex() : blort();

        recheck($result) if $self->recheck;

        print $result;
    } 

DESCRIPTION ^

This module marries App::Cmd with MooseX::Getopt.

Use it like App::Cmd advises (especially see App::Cmd::Tutorial), swapping App::Cmd::Command for MooseX::App::Cmd::Command.

Then you can write your moose commands as moose classes, with MooseX::Getopt defining the options for you instead of opt_spec returning a Getopt::Long::Descriptive spec.

AUTHOR ^

Yuval Kogman <nothingmuch@woobling.org>

With contributions from:

Guillermo Roditi <groditi@cpan.org>

COPYRIGHT ^

    Copyright (c) 2007-2008 Infinity Interactive, Yuval Kogman. All rights
    reserved This program is free software; you can redistribute it and/or
    modify it under the same terms as Perl itself.
syntax highlighting: