1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/env perl use utf8;use strict;use warnings;use Gtk2 '-init';use Path::Class;use LDFM::MainController; my $glade_dir=file(__FILE__) ->parent ->parent ->subdir('resources'); my $main_controller=LDFM::MainController->new( glade_dir => $glade_dir); $main_controller->run();