Select Code to Download

my $old = $foo->fribble
$foo->fribble($new);
... do something ...
$foo->fribble($old);

my $old = $foo->fribble($new)
... do something;
$foo->fribble($old);

package Class::Chain;
use strict;
...
};

sub DESTROY {};

# call the whatever method and return $wrapped
$wrapped->whatever
...

# run $wrapped->$coderef and return $wrapped
$wrapped->chain($coderef)

my $file_dialog = Gtk::FileSelection
   ->Class::Chain::new("File Selection Demo")
...
   ->set_filename("penguin.png")
   ->signal_connect(destroy => sub{Gtk->main_quit})
   ->show();