Re^5: Inotify2 + AnyEvent (naked code ref)

I'm not going to install Tk at the moment.

Ok, thanks for explaining. It's the () that causes premature exiting.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow;
$mw->geometry("400x200");

my $button = $mw->Button(-text    => "Sub test exit",
                 -command => \&callback(),  # exits prematurely
              # -command => \&callback,     # works ok
                          )->pack();

MainLoop;

sub callback{
  print "exiting\n";
  Tk::exit;
}
__END__
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re^5: Inotify2 + AnyEvent (naked code ref) Download Code

Replies are listed 'Best First'.
Re^6: Inotify2 + AnyEvent (naked code ref) by Anonymous Monk on Oct 06, 2011 at 10:12 UTC
`$ perl -MO=Deparse -e " $foo = \&bar " $foo = \&bar; -e syntax OK $ perl -MO=Deparse -e " $foo = \&bar() " $foo = \(&bar()); -e syntax OK` [download]	[reply] [d/l]