Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
actions	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
bundled	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
compat	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
properties	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00-compile.t	357 B	-r--r--r--	2014-12-27 11:49
PL_files.t	2.18 KB	-r--r--r--	2014-12-27 11:49
README.pod	2.94 KB	-r--r--r--	2014-12-27 11:49
add_property.t	3.1 KB	-r--r--r--	2014-12-27 11:49
add_property_array.t	349 B	-r--r--r--	2014-12-27 11:49
add_property_hash.t	351 B	-r--r--r--	2014-12-27 11:49
basic.t	6.48 KB	-r--r--r--	2014-12-27 11:49
bundle_inc.t	6.02 KB	-r--r--r--	2014-12-27 11:49
compat.t	15.42 KB	-r--r--r--	2014-12-27 11:49
debug.t	555 B	-r--r--r--	2014-12-27 11:49
destinations.t	9.52 KB	-r--r--r--	2014-12-27 11:49
ext.t	5.91 KB	-r--r--r--	2014-12-27 11:49
extend.t	6.7 KB	-r--r--r--	2014-12-27 11:49
files.t	905 B	-r--r--r--	2014-12-27 11:49
help.t	5.2 KB	-r--r--r--	2014-12-27 11:49
install.t	6.03 KB	-r--r--r--	2014-12-27 11:49
install_extra_target.t	2.94 KB	-r--r--r--	2014-12-27 11:49
manifypods.t	3.53 KB	-r--r--r--	2014-12-27 11:49
manifypods_with_utf8.t	1.61 KB	-r--r--r--	2014-12-27 11:49
metadata.t	3.13 KB	-r--r--r--	2014-12-27 11:49
metadata2.t	2.93 KB	-r--r--r--	2014-12-27 11:49
mymeta.t	5.23 KB	-r--r--r--	2014-12-27 11:49
new_from_context.t	429 B	-r--r--r--	2014-12-27 11:49
notes.t	1.26 KB	-r--r--r--	2014-12-27 11:49
parents.t	1.34 KB	-r--r--r--	2014-12-27 11:49
perl_mb_opt.t	1.63 KB	-r--r--r--	2014-12-27 11:49
pod_parser.t	2.77 KB	-r--r--r--	2014-12-27 11:49
ppm.t	5.43 KB	-r--r--r--	2014-12-27 11:49
resume.t	989 B	-r--r--r--	2014-12-27 11:49
runthrough.t	4.88 KB	-r--r--r--	2014-12-27 11:49
sample.t	589 B	-r--r--r--	2014-12-27 11:49
script_dist.t	1.78 KB	-r--r--r--	2014-12-27 11:49
test_file_exts.t	959 B	-r--r--r--	2014-12-27 11:49
test_reqs.t	1.04 KB	-r--r--r--	2014-12-27 11:49
test_type.t	1.41 KB	-r--r--r--	2014-12-27 11:49
test_types.t	4.24 KB	-r--r--r--	2014-12-27 11:49
tilde.t	2.89 KB	-r--r--r--	2014-12-27 11:49
unit_run_test_harness.t	2.34 KB	-r--r--r--	2014-12-27 11:49
use_tap_harness.t	2.42 KB	-r--r--r--	2014-12-27 11:49
versions.t	502 B	-r--r--r--	2014-12-27 11:49
write_default_maniskip.t	932 B	-r--r--r--	2014-12-27 11:49
xs.t	4.38 KB	-r--r--r--	2014-12-27 11:49

Rename

#!perl -w
# Contributed by: Thorben Jaendling

use strict;
use lib 't/lib';
use MBTest tests => 6;

blib_load('Module::Build');

use File::Spec::Functions qw( catdir catfile );

my $tmp = MBTest->tmpdir;
my $output;

use DistGen;
my $dist = DistGen->new( dir => $tmp );

# note("Dist is in $tmp\n");

$dist->add_file("Build.PL", <<'===EOF===');
#!perl -w

use strict;
use Module::Build;

my $subclass = Module::Build->subclass(code => <<'=EOF=');
sub copy_files
{
	my $self = shift;
	my $dir = shift;

my $files = $self->rscan_dir($dir, sub {-f $_ and not m!/\.|[#~]$!});

foreach my $file (@$files) {
		$self->copy_if_modified(from => $file, to_dir => "blib");
	}
}

#Copy etc files to blib
sub process_etc_files
{
	my $self = shift;

$self->copy_files("etc");
}

#Copy share files to blib
sub process_shared_files
{
	my $self = shift;

$self->copy_files("shared");
}

1;
=EOF=

my $build = $subclass->new(
	module_name => 'Simple',
	license     => 'perl'
);

$build->add_build_element('etc');
$build->add_build_element('shared');

my $distdir = lc $build->dist_name();

foreach my $id ('core', 'site', 'vendor') {
	#Where to install these build types when using prefix symantics
	$build->prefix_relpaths($id, 'shared' => "shared/$distdir");
	$build->prefix_relpaths($id, 'etc' => "etc/$distdir");

#Where to install these build types when using default symantics
	my $set = $build->install_sets($id);
	$set->{'shared'} = '/usr/'.($id eq 'site' ? 'local/':'')."shared/$distdir";
	$set->{'etc'} = ($id eq 'site' ? '/usr/local/etc/':'/etc/').$distdir;
}

#Where to install these types when using install_base symantics
$build->install_base_relpaths('shared' => "shared/$distdir");
$build->install_base_relpaths('etc' => "etc/$distdir");

$build->create_build_script();

===EOF===

#Test Build.PL exists ok?

$dist->add_file("etc/config", <<'===EOF===');
[main]
Foo = bar
Jim = bob

[supplemental]
stardate = 1234344

===EOF===

$dist->add_file("shared/data", <<'===EOF===');
7 * 9 = 42?

===EOF===

$dist->add_file("shared/html/index.html", <<'===EOF===');
<HTML>
  <BODY>
    <H1>Hello World!</H1>
  </BODY>
</HTML>

===EOF===

$dist->regen;
$dist->chdir_in;

my $installdest = catdir($tmp, 't', "install_extra_targets-$$");

$output = stdout_of sub { $dist->run_build_pl("--install_base=$installdest") };

$output .= stdout_of sub { $dist->run_build };

my $error;
$error++ unless ok(-e "blib/etc/config", "Built etc/config");
$error++ unless ok(-e "blib/shared/data", "Built shared/data");
$error++ unless ok(-e "blib/shared/html/index.html", "Built shared/html");
diag "OUTPUT:\n$output" if $error;

$output = stdout_of sub { $dist->run_build('install') };

$error = 0;
$error++ unless ok(-e catfile($installdest, qw/etc simple config/), "installed etc/config");
$error++ unless ok(-e catfile($installdest, qw/shared simple data/), "installed shared/data");
$error++ unless ok(-e catfile($installdest, qw/shared simple html index.html/), "installed shared/html");
diag "OUTPUT:\n$output" if $error;