Data-Object-Args

 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]

README  view on Meta::CPAN

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

    unnamed example #1

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

    unnamed example #2

        package main;
      
        use Data::Object::Args;
      
        local @ARGV = qw(execute phase-1 --format markdown);
      
        my $args = Data::Object::Args->new(
          named => { command => 1 }
        );
      
        $args->unnamed # ['execute', '--format', 'markdown']

AUTHOR

    Al Newkirk, awncorp@cpan.org

README.md  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]

README.md  view on Meta::CPAN

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

- unnamed example #1

        package main;

        use Data::Object::Args;

        local @ARGV = qw(--help execute --format markdown);

        my $args = Data::Object::Args->new(
          named => { flag => 0, command => 1 }
        );

        $args->unnamed # ['--format', 'markdown']

- unnamed example #2

        package main;

        use Data::Object::Args;

        local @ARGV = qw(execute phase-1 --format markdown);

        my $args = Data::Object::Args->new(
          named => { command => 1 }
        );

        $args->unnamed # ['execute', '--format', 'markdown']

# AUTHOR

Al Newkirk, `awncorp@cpan.org`

lib/Data/Object/Args.pm  view on Meta::CPAN

Args Class for Perl 5

=cut

=head1 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]

lib/Data/Object/Args.pm  view on Meta::CPAN

using the C<named> attribute.

=over 4

=item unnamed example #1

  package main;

  use Data::Object::Args;

  local @ARGV = qw(--help execute --format markdown);

  my $args = Data::Object::Args->new(
    named => { flag => 0, command => 1 }
  );

  $args->unnamed # ['--format', 'markdown']

=back

=over 4

=item unnamed example #2

  package main;

  use Data::Object::Args;

  local @ARGV = qw(execute phase-1 --format markdown);

  my $args = Data::Object::Args->new(
    named => { command => 1 }
  );

  $args->unnamed # ['execute', '--format', 'markdown']

=back

=cut

t/Data_Object_Args.t  view on Meta::CPAN

method: unnamed

=cut

=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]

t/Data_Object_Args.t  view on Meta::CPAN

=signature unnamed

unnamed() : ArrayRef

=example-1 unnamed

  package main;

  use Data::Object::Args;

  local @ARGV = qw(--help execute --format markdown);

  my $args = Data::Object::Args->new(
    named => { flag => 0, command => 1 }
  );

  $args->unnamed # ['--format', 'markdown']

=example-2 unnamed

  package main;

  use Data::Object::Args;

  local @ARGV = qw(execute phase-1 --format markdown);

  my $args = Data::Object::Args->new(
    named => { command => 1 }
  );

  $args->unnamed # ['execute', '--format', 'markdown']

=cut

package main;