comment on

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!

In reply to Re^2: multiple method calls against the same object, revisited by ihb
in thread multiple method calls against the same object, revisited by Aristotle

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks