summaryrefslogtreecommitdiff
path: root/lib/LDFM/MainController.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/LDFM/MainController.pm')
-rw-r--r--lib/LDFM/MainController.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index a9534e0..9508ced 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -4,7 +4,17 @@ use warnings;
use strict;
use base 'Gtk2::GladeXML::Simple';
use Readonly;
+use Path::Class;
our $VERSION = '0.01';
+sub new {
+ my ($class,%params)=@_;
+
+ my $glade_file=dir($params{glade_dir})->file('ldfm-main.glade');
+ my $self=$class->SUPER::new($glade_file);
+
+ return $self;
+}
+
1;