lib/Net/MulkyID/Builder.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#! /usr/bin/env perl

package Net::MulkyID::Builder;

use Module::Build;

our @ISA = 'Module::Build';

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_build {
  my ($self, @args) = @_;
  eval "use Net::MulkyID::Setup; setup();";
  if ($@) {
    die $@;
  }
}

1;