dbg and expensive_test();

##</code><code>##

use ctflags::parse ns => "myapp:debug", env=>'MYAPPDEBUG';

##</code><code>##

use ctflags prefix=>'dbg_', 'myapp:debug:*';

dbg_a and print "a flag is on\n";
dbg_b and print "b flag is on\n";
dbg_c and print "c flag is on\n";

##</code><code>##

 $ MYAPPDEBUG=ac perl myapp.pl

##</code><code>##

a flag is on
c flag is on