File Coverage

_build/lib/ePortal/Builder.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	1	6	16.6
condition	0	7	0.0
subroutine	2	6	33.3
pod	0	5	0.0
total	9	46	19.5

package ePortal::Builder;
use Module::Build;
@ISA = qw(Module::Build);


sub ACTION_manifest {
  my $self = shift;
  $self->run_perl_script('release/make_manifest.pl', undef, '--target='.$self->notes('ePortal_target'));
}

sub ACTION_install {
  my $self = shift;
  $self->SUPER::ACTION_install();
  ExtUtils::Install::install(
    { 'comp_root' => $self->notes('ePortal_home').'/comp_root',
      'bin' =>  $self->notes('ePortal_home').'/bin',
      'samples' =>  $self->notes('ePortal_home').'/samples',
    }, 1, 0, $self->{args}{uninst}||0);
}

sub ACTION_fakeinstall {
  my $self = shift;
  $self->SUPER::ACTION_fakeinstall();
  ExtUtils::Install::install(
    { 'comp_root' => $self->notes('ePortal_home').'/comp_root',
      'bin' =>  $self->notes('ePortal_home').'/bin',
      'samples' =>  $self->notes('ePortal_home').'/samples',
    }, 1, 1, $self->{args}{uninst}||0);
}

sub ACTION_distmeta {
  my $self = shift;
  if ($self->notes('ePortal_target') ne 'ePortal') {
    $self->{properties}{requires}{'ePortal::Server'} = $self->dist_version();
  }
  $self->SUPER::ACTION_distmeta();
}

sub ACTION_test {
  my $self = shift;

  if (-d './t') {
    my @test_parameters = (
      ['ePortal_test_host', 'Mysql server host', 'localhost'],
      ['ePortal_test_database', 'MySQL database name (must exists)', 'eportal_test'],
      ['ePortal_test_username', 'MySQL username', 'root'],
      ['ePortal_test_password', 'MySQL password', ''],
      ['ePortal_test_webserver', 'WEB server to test ("none" to skip)', 'http://test/'],
    );
    foreach my $rec (@test_parameters) {
      local $^W = 0;
      $self->notes($rec->[0], $self->prompt($rec->[1], $self->notes($rec->[0]) || $rec->[2])) if ! defined $self->notes($rec->[0]);
    }
  }

  $self->SUPER::ACTION_test();
}


1;