use Path::Class;
use File::Find 'find';
+our @ignore =
+ qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README
+ _build blib lib script t/;
+
our $FAKE;
-our $ignore = '^('
- . join( '|',
- qw/Build Build.PL Changes Makefile.PL README _build blib lib script t/ )
- . ')$';
+our $ignore = '^(' . join( '|', @ignore ) . ')$';
=head1 NAME
=head1 METHODS
+=over 4
+
=item ACTION_install
=cut
=cut
sub ACTION_install_extras {
- my $self = shift;
- my $prefix = $self->{properties}{destdir} || '';
- my $path = dir(
- $prefix,
- $self->{config}{installsitelib},
- split( '::', $self->{properties}{module_name} )
- );
- my @files = $self->_find_extras;
+ my $self = shift;
+ my $prefix = $self->{properties}{destdir} || undef;
+ my $sitelib = $self->install_destination('lib');
+ my @path = defined $prefix ? ( $prefix, $sitelib ) : ($sitelib);
+ my $path = dir( @path, split( '::', $self->{properties}{module_name} ) );
+ my @files = $self->_find_extras;
print "Installing extras to $path\n";
for (@files) {
$FAKE
- ? print "$_ -> $path/$_ (FAKE)\n"
+ ? print "$_ -> $path (FAKE)\n"
: $self->copy_if_modified( $_, $path );
}
}