#line 1
package Module::Install::PadrePlugin;
use strict;
use Module::Install::Base;
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '0.01';
@ISA = qw{Module::Install::Base};
}
#line 41
sub is_padre_plugin {
my ($self) = @_;
my $class = ref($self);
my $inc_class = join( '::', @{ $self->_top }{qw(prefix name)} );
my $version = $self->version;
my $distname = $self->name;
$distname =~ s/^Padre-Plugin-//
or die "This is not a Padre plugin The namespace doesn't start with Padre::Plugin::!";
my $file = $distname;
$file .= '.par';
$self->postamble(<<"END_MAKEFILE");
# --- $class section:
$file: all test
\t\$(NOECHO) \$(PERL) "-M$inc_class" -e "make_padre_plugin(q($distname),q($file),q($version))"
plugin :: $file
\t\$(NOECHO) \$(NOOP)
installplugin :: $file
\t\$(NOECHO) \$(PERL) "-M$inc_class" -e "install_padre_plugin(q($file))"
END_MAKEFILE
}
#line 96
sub make_padre_plugin {
my ( $self, $distname, $file, $version ) = @_;
unlink $file if -f $file;
unless ( eval { require PAR::Dist; PAR::Dist->VERSION >= 0.17 } ) {
warn "Please install PAR::Dist 0.17 or above first.";
return;
}
return PAR::Dist::blib_to_par(
name => $distname,
version => $version,
dist => $file,
);
}
sub install_padre_plugin {
my ( $self, $file ) = @_;
if ( not -f $file ) {
warn "Cannot find plugin file '$file'.";
return;
}
require Padre;
my $plugin_dir = Padre::Config->default_plugin_dir;
require File::Copy;
return File::Copy::copy( $file, $plugin_dir );
}
1;
#line 143