=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 );
}
}
=head1 LICENSE
-This library is free software . You can redistribute it and/or modify it under
-the same terms as perl itself.
+This library is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself.
=cut