Select Code to Download

$ap = Getopt::ArgParse->new_parser(
  {
...
      description => "Test the Getopt::Argparse module"
  }
);

$ap->add_argument('-c', '--count', type => 'Scalar');

$ap->add_argument('-f', '--flag', type => 'Bool');

$ap->add_argument('--count', '-c', type => 'Scalar');

$ap->add_argument('--flag', '-f', type => 'Bool');

if (! defined($args->{'count'})) {

if (! defined($args->get_attr('count'))) {

if (! defined($args->count)) {

#!/usr/bin/perl -w
use strict;
...
if (! defined($args->count)) {
   print "count not defined\n";
}