Just another Perl shrine PerlMonks

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

by ihb (Deacon)
 on Dec 28, 2004 at 02:44 UTC ( #417686=note: print w/replies, xml ) Need Help??

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!

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,
signal_connect => [ clicked => sub { Gtk2->main_quit } ] ),
'show_all',
);
[download]

Create A New User
Node Status?
node history
Node Type: note [id://417686]
help
Chatterbox?
 [Corion]: thezip: start "some title" path\to\that\ application, but that will open another console window [Corion]: thezip: If you want to confuse your users, use system(1, "that\\command" );, which will make Perl launch it in the background [Corion]: That will keep the console window open even though the user can't type into it anymore [thezip]: So I have a script that generates a log file. After script completion, I want tohave VIM open this logfile. [thezip]: i don't get the command line "back" until I close VIM. No what I want to happen... [thezip]: I currently don't have access to CYGWIN, else I'd just do a tail -f on the logfile. [Corion]: thezip: If you want to open vim and can live with opening a second console window, use start "The results" vim.exe c:\path\to\logfile .log

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (11)
As of 2017-03-27 18:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should Pluto Get Its Planethood Back?

Results (321 votes). Check out past polls.