NAME

Smart::Options::Declare - DSL for Smart::Options

SYNOPSIS

            

              
              
use Smart::Options::Declare;
opts my $rif => 'Int', my $xup => 'Num';
if ($rif - 5 * $xup > 7.138) {
    say 'Buy more fiffiwobbles';
}
else {
   say 'Sell the xupptumblers';
}
# $ ./example.pl --rif=55 --xup=9.52
# Buy more fiffiwobbles
#
# $ ./example.pl --rif 12 --xup 8.1
# Sell the xupptumblers
            
          

DESCRIPTION

Smart::Options::Declare is a library which offers DSL for Smart::Options.

METHOD

opts $var => TYPE, $var2 => { isa => TYPE, RULE => ... }

set option value to variable.

            

              
              
use Smart::Options::Declare;
opts my $var => 'Str', my $value => { isa => 'Int', default => 4 };
            
          

opts_coerce ( NewType, Source, Generater )

define new type and convert logic.

            

              
              
opts_coerce Time => 'Str', sub { Time::Piece->strptime($_[0]) }
opts my $time => 'Time';
$time->hour;
            
          

RULE

isa define option value type. see "TYPES".

required define option value is required.

default define options default value. If passed a coderef, it will be executed if no value is provided on the command line.

alias define option param's alias.

comment this comment is used to generate help. help can show --help

TYPES

Str

Int

Num

Bool

ArrayRef

HashRef

Multiple

This subtype is based off of ArrayRef. It will attempt to split any values passed on the command line on a comma: that is,

            

              
              
opts my $foo => 'ArrayRef';
# script.pl --foo=one --foo=two,three
# => ['one', 'two,three']
            
          

will become

            

              
              
opts my $foo => 'Multiple';
# script.pl --foo=one --foo=two,three
# => ['one', 'two', 'three']
            
          

AUTHOR

Kan Fushihara <kan.fushihara@gmail.com>

SEE ALSO

opts

LICENSE

Copyright (C) Kan Fushihara

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm Smart::Options

perl -MCPAN -e shell
install Smart::Options