=head1 METHODS
-=over4
+=over 4
=item ACTION_install
=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 );
}
}