Smart-Options

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7",
            "Version::Next" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Exporter" : "0",
            "File::Slurp" : "0",
            "List::MoreUtils" : "0",
            "PadWalker" : "0",
            "Text::Table" : "0",
            "perl" : "5.010001"
         }
      },
      "test" : {
         "requires" : {
            "Capture::Tiny" : "0.12",
            "Devel::Cover" : "0",
            "File::Spec" : "0",
            "Test::Exception" : "0",

META.yml  view on Meta::CPAN

provides:
  Smart::Options:
    file: lib/Smart/Options.pm
    version: '0.061'
  Smart::Options::Declare:
    file: lib/Smart/Options/Declare.pm
requires:
  Exporter: '0'
  File::Slurp: '0'
  List::MoreUtils: '0'
  PadWalker: '0'
  Text::Table: '0'
  perl: '5.010001'
resources:
  bugtracker: https://github.com/kan/p5-smart-options/issues
  homepage: https://github.com/kan/p5-smart-options
  repository: git://github.com/kan/p5-smart-options.git
version: '0.061'
x_contributors:
  - 'hayajo <hayajo@cpan.org>'
  - 'Takuji Nishibayashi <takuji31@gmail.com>'

cpanfile  view on Meta::CPAN

requires 'Exporter';
requires 'File::Slurp';
requires 'Text::Table';
requires 'List::MoreUtils';
requires 'PadWalker';

on 'test' => sub {
    requires 'Test::More' => '0.98';
    requires 'Test::Requires' =>  0;
    requires 'Test::TCP';
    requires 'Capture::Tiny'   => '0.12';
    requires 'Try::Tiny';
    requires 'Test::Exception';
    requires 'File::Spec';
    requires 'Devel::Cover';

lib/Smart/Options/Declare.pm  view on Meta::CPAN

package Smart::Options::Declare;
use strict;
use warnings;

use Exporter 'import';
use Smart::Options;
use PadWalker qw/var_name/;

our @EXPORT = qw(opts opts_coerce);

our $COERCE = {
    Multiple => {
        type      => 'ArrayRef',
        generater => sub {
            if ( defined $_[0] ) {
                return [
                    split(