Select Code to Download

use strict;
use warnings;
...

print "Calling workaround( 1 ):\n";
$foo->workaround( 1 );

Output:

...
  in workaround_changed
  in not_a_trigger
    in 'after' not_a_trigger