scripts/ldfm


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();