diff options
| author | Matthias Benkard <matthias.benkard@egym.de> | 2015-04-22 11:56:27 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2015-04-23 21:55:52 +0200 |
| commit | ccb82fe054a73a6e662b1998aaee5609c62a3b32 (patch) | |
| tree | dc2a50247496a53819b397f7e358097137c00694 /lib/Net/MulkyID/Builder.pm | |
| parent | 057a1869cace85f8ea2931a92329988e509225d8 (diff) | |
Diffstat (limited to 'lib/Net/MulkyID/Builder.pm')
| -rw-r--r-- | lib/Net/MulkyID/Builder.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/Net/MulkyID/Builder.pm b/lib/Net/MulkyID/Builder.pm index bd5058f..2100cf3 100644 --- a/lib/Net/MulkyID/Builder.pm +++ b/lib/Net/MulkyID/Builder.pm @@ -10,14 +10,19 @@ sub new { my ($class, @args) = @_; my $self = $class->SUPER::new(@args); return bless $self, $class; - #my $self = $self->SUPER::new(); - #return $self; - #return bless {}, shift; +} + +sub ACTION_configure { + my ($self, @args) = @_; + eval "use Net::MulkyID::Setup; configure();"; + if ($@) { + die $@; + } } sub ACTION_build { my ($self, @args) = @_; - eval "use Net::MulkyID::Setup; setup();"; + eval "use Net::MulkyID::Setup; build();"; if ($@) { die $@; } |