Select Code to Download

use strict;
use warnings;

...

use Data::Dumper;
print Dumper $cfg;

package configthing;

...

    return $this;
}

$VAR1 = bless( [
                 bless( {
                          'c' => 3,
...
                 'default for c',
                 ''
               ], 'configthing' );

$VAR1 = bless( {
                 'c' => 'default for c',
                 'a' => 'set at initialization',
                 'b' => 'default for b',
                 'd' => ''
               }, 'configthing' );