Select Code to Download

use strict;
use warnings;
...
    printf "[%s] badness: %s\n", $$, $foo;
    $foo += $val;
}

package Apache::ROOTfoo_2ecom::test_2epl;
use Apache qw(exit);
...
}

}

Package: Apache::ROOTfoo_2ecom::test_2epl
[13520] Before: 5
[13520] badness: 5
[13520] After: 10

Package: Apache::ROOTfoo_2ecom::test_2epl
[19331] Before: 5
[19331] badness: 5
[19331] After: 10

Package: Apache::ROOTfoo_2ecom::test_2epl
[19331] Before: 5
[19331] badness: 10
[19331] After: 5

Package: Apache::ROOTfoo_2ecom::test_2epl
[19331] Before: 5
[19331] badness: 15
[19331] After: 5

use strict;
use warnings;
...
    printf "[%s] badness: %s\n", $$, $$foo;
    $$foo += $val;
}