package LDFM::MainController; use utf8; 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;