Re^2: multiple method calls against the same object, revisited

What happens when you want to have a method without any arguments in the middle of those other methods? This problem is the reason Aristotle used array references, I think.

A possible solution would be to "escape" the methods without arguments, yielding

my $window = Gtk2::Window->new( "toplevel" )->call_method_list(
    signal_connect   => [ delete_event => sub { Gtk2->main_quit } ],
    set_title        => "Test",
    \'my_argumentless_method',      # <---------------
    set_border_width => 15,
    add => Gtk2::Button->new( "Quit" )->call_method_list( 
        signal_connect => [ clicked => sub { Gtk2->main_quit } ] ),
    \'show_all',
);
[download]

and change the implementation to (untested)

use Carp qw( croak );
sub UNIVERSAL::call_method_list {
  my $target = shift;
  
  while ( scalar @_ ) {
    my $method = shift @_;
    my @args = (ref $method) ? () : (ref($_[0]) eq 'ARRAY') ? @{shift}
+ : shift;
    $method = $$method if ref $method;
    eval { $target->$method( @args ) };
    if( $@ ) { croak( $@ ) }
  }
  
  return $target;
}
[download]

ihb

Update: Apparently I should've read the code closer. The last case of a single method with no following element threw me off.

See perltoc if you don't know which perldoc to read!
Read argumentation in its context!

Comment on Re^2: multiple method calls against the same object, revisited Select or Download Code

Replies are listed 'Best First'.

Re^3: multiple method calls against the same object, revisited
by simonm (Vicar) on Dec 28, 2004 at 07:48 UTC

What happens when you want to have a method without any arguments in the middle of those other methods?

Just write it with an empty array reference:

my $window = Gtk2::Window->new( "toplevel" )->call_method_list(
    signal_connect   => [ delete_event => sub { Gtk2->main_quit } ],
    set_title        => "Test",
    my_argumentless_method => [],
    set_border_width => 15,
    add => Gtk2::Button->new( "Quit" )->call_method_list(
        signal_connect => [ clicked => sub { Gtk2->main_quit } ] ),
    'show_all',
);
[download]

[reply]
[d/l]


Keep It Simple, Stupid
	PerlMonks