scripts/ldfm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/env perl 
use utf8;
use strict;
use warnings;
use Gtk2 '-init';
use Path::Class;
use LDFM::MainController;
 
my $glade_file=file(__FILE__)
    ->parent
    ->parent
    ->subdir('resources')
    ->file('ldfm-main.glade');
 
my $main_controller=LDFM::MainController->new(
    glade_file => $glade_file
);
 
$main_controller->run();