Select Code to Download

my $window = Gtk2::Window->new( "toplevel" )->call_method_list(
    signal_connect   => [ delete_event => sub { Gtk2->main_quit } ],
...
        signal_connect => [ clicked => sub { Gtk2->main_quit } ] ),
    'show_all',
);

use Carp qw( croak );
sub UNIVERSAL::call_method_list {
...
  
  return $target;
}