1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
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;