Skip Menu |
 

This queue is for tickets about the AppConfig CPAN distribution.

Report information
The Basics
Id: 44521
Status: new
Priority: 0/
Queue: AppConfig

People
Owner: Nobody in particular
Requestors: rlauer6 [...] comcast.net
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: re: simple flags
Date: Tue, 24 Mar 2009 11:29:46 -0400
To: bug-AppConfig [...] rt.cpan.org
From: Rob Lauer <rlauer6 [...] comcast.net>
Download (untitled) / with headers
text/plain 929b
Don't seem to work in sections.. #!/usr/bin/perl use AppConfig; use AppConfig qw(:expand :argcount); use AppConfig qw(ARGCOUNT_NONE ARGCOUNT_ONE); $config = AppConfig->new( { CASE => 1, CREATE => 1, ERROR => sub { }, } ); $config->define("options_cleanup", { DEFAULT => 1, ARGCOUNT => ARGCOUNT_NONE } ); $config->define("cds_testing", { DEFAULT => 1, ARGCOUNT => ARGCOUNT_NONE } ); $config->define("foo", { DEFAULT => 1, ARGCOUNT => ARGCOUNT_NONE } ); $config->define("baz", { DEFAULT => 1, ARGCOUNT => ARGCOUNT_NONE } ); $config->file(\*DATA); printf("testing:[%d]\n", $config->cds_testing); printf("cleanup:[%d]\n", $config->options_cleanup); printf("foo[%d]\n", $config->foo); printf("baz:[%d]\n", $config->baz); __DATA__ foo nobaz [cds] testing on [options] nocleanup 8-<------------------------- would expect nocleanup to yield 0, baz does yield 0 AppConfig version = 1.56 -- Rob


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.