view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;

use 5.005;

use lib 'inc';

use Alzabo::GUI::Mason::Build;

use File::Basename;
use File::Path;
use File::Spec;

config() unless grep { $_ eq '--dist' } @ARGV;

my $build =
    Alzabo::GUI::Mason::Build->new
    ( module_name    => 'Alzabo::GUI::Mason',
      requires       => { 'HTML::Mason'   => 1.10,
                          'URI::FromHash' => 0,
                        },
      sign           => 1,
      license        => 'perl',
    );

$build->create_build_script;

$build->add_to_cleanup( File::Spec->catdir( qw( lib Alzabo GUI Mason ) ),
                        File::Spec->catfile( qw( lib Alzabo GUI Mason Config.pm ) ) );

sub config
{
    my $config;
    if ( eval { require Alzabo::GUI::Mason::Config; 1; } )
    {
	$config = \%Alzabo::GUI::Mason::Config::CONFIG;
    }
    elsif ( eval { require AlzaboGUI::Mason::Config; 1; } )
    {
	$config = \%AlzaboGUI::Mason::Config::CONFIG;
    }
    elsif ( eval { require Alzabo::Config; 1; } )
    {
	$config = \%Alzabo::Config::CONFIG;
    }

    my $default = $config->{mason_web_dir};
    $default =~ s,/alzabo\Z,, if $default;

    do
    {
	print "\n *** The directory you selected does not exist ***\n"
            if defined $config->{mason_web_dir} && ! -d $config->{mason_web_dir};

	print <<'EOF';

Where would you like to install the mason components for this
interface (this must be under your component root)?  NOTE: The
installer will create an 'alzabo' subdirectory under the directory
given.

If you are not familiar with Mason, any directory underneath your web
server's document root will work.
EOF

	$config->{mason_web_dir} =