blob: 780a282ff413e5b2f1af1f1ded0a1076a65a6a65 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
package LDFM::MainController; use utf8; use warnings; use strict; use base 'Gtk2::GladeXML::Simple'; use Readonly; our $VERSION = '0.01'; sub new { my ($class,%params)=@_; my $self=$class->SUPER::new($params{glade_file}); return $self; } 1;
|