Venus::Opts

Opts Class

Opts Class for Perl 5

method: default method: exists method: get method: parse method: name method: set method: unnamed

package main;

use Venus::Opts;

my $opts = Venus::Opts->new(
  value => ['--resource', 'users', '--help'],
  specs => ['resource|r=s', 'help|h'],
  named => { method => 'resource' } # optional
);

# $opts->method; # $resource
# $opts->get('resource'); # $resource

# $opts->help; # $help
# $opts->get('help'); # $help

This package provides methods for handling command-line arguments.

Venus::Kind::Utility

Venus::Role::Accessible Venus::Role::Buildable Venus::Role::Proxyable Venus::Role::Valuable

named: rw, opt, HashRef, {} parsed: rw, opt, HashRef, {} specs: rw, opt, ArrayRef, [] warns: rw, opt, ArrayRef, [] unused: rw, opt, ArrayRef, []

The default method returns the default value, i.e. [@ARGV].

default() (ArrayRef)

{ since => '0.01', }

=example-1 default

# given: synopsis;

my $default = $opts->default;

# []

The exists method takes a name or index and returns truthy if an associated value exists.

exists(Str $key) (Bool)

{ since => '0.01', }

=example-1 exists

# given: synopsis;

my $exists = $opts->exists('resource');

# 1

The get method takes a name or index and returns the associated value.

get(Str $key) (Any)

{ since => '0.01', }

=example-1 get

# given: synopsis;

my $get = $opts->get('resource');

# "users"

The parse method optionally takes additional Getopt::Long parser configuration options and retuns the options found based on the object args and spec values.

parse(ArrayRef $args) (Opts)

{ since => '0.01', }

=example-1 parse

# given: synopsis;

my $parse = $opts->parse;

# { help => 1, resource => "users" }

The name method takes a name or index and returns index if the the associated value exists.

name(Str $key) (Str | Undef)

{ since => '0.01', }

=example-1 name

# given: synopsis;

my $name = $opts->name('resource');

# "resource"

The set method takes a name or index and sets the value provided if the associated argument exists.

set(Str $key, Any $data) (Any)

{ since => '0.01', }

=example-1 set

# given: synopsis;

my $set = $opts->set('method', 'people');

# "people"

The unnamed method returns an arrayref of values which have not been named using the named attribute.

unnamed() (ArrayRef)

{ since => '0.01', }

=example-1 unnamed

# given: synopsis;

my $unnamed = $opts->unnamed;

# [1]

t/Venus.t: pdml: authors t/Venus.t: pdml: license

cpanm Venus

perl -MCPAN -e shell
install Venus