view release on metacpan or  search on metacpan

README  view on Meta::CPAN

ABSTRACT

    Args Class for Perl 5

SYNOPSIS

      package main;
    
      use Data::Object::Args;
    
      local @ARGV = qw(--help execute);
    
      my $args = Data::Object::Args->new(
        named => { flag => 0, command => 1 }
      );
    
      # $args->flag; # $ARGV[0]
      # $args->get(0); # $ARGV[0]
      # $args->get(1); # $ARGV[1]
      # $args->action; # $ARGV[1]
      # $args->exists(0); # exists $ARGV[0]