Select Code to Download

BEGIN {
    $::RD_AUTOACTION = q {
        bless [@item[1..$#item]], 'Config::Yacp::Deparse::'.$item[0]
    };
}

my $tree = Config::Yapc->new('test.ini', $parser->file($text));
my $deparsed = $tree->deparse;

$VAR1 = bless({
           text => bless ([
...
           ], 'Config::Yapc::Deparse::file'),
       name => 'text.ini'
     }, 'Config::Yacp' );

sub Config::Yacp::Deparse::file::deparse {
    ...
...
    ...
}
etc...