Select Code to Download

$obj->foo;
$obj->child->bar;
$obj->baz;

sub CHAIN::AUTOLOAD {
    my $self = shift;
...
        ->CHAIN::signal_connect( clicked => sub { Gtk2->main_quit } )
    )
    ->CHAIN::show_all();