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
27
28
29
30
31

#! /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;
}

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; build();";
  if ($@) {
    die $@;
  }
}

1;