Select Code to Download

dbg and expensive_test();

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

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";

 $ MYAPPDEBUG=ac perl myapp.pl

a flag is on
c flag is on