Select Code to Download

    package Foobar;

    sub _setup_xforms {
...
    my $foo = new Foobar( id => 1 );

    $foo->transform(0);

    Level 0,foo=0
    Level 1,foo=0
...
    Level 2 done, foo=1
    Level 1 done, foo=1
    Level 0 done, foo=1