#!/usr/bin/perl use strict; use warnings; use QtCore4; use QtGui4; use MainWindow; # [0] sub main { my $app = Qt::Application(\@ARGV); my $mainWin = MainWindow(); $mainWin->show(); $mainWin->open(); return $app->exec(); } # [0] exit main();
#!/usr/bin/perl use strict; use warnings; use QtCore4; use QtGui4; use MainWindow; # [0] sub main { my $app = Qt::Application(\@ARGV); my $mainWin = MainWindow(); $mainWin->show(); $mainWin->open(); return $app->exec(); } # [0] exit main();