1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#line 1
package Module::Install::PadrePlugin;
use strict;
use Module::Install::Base;
use vars qw{$VERSION @ISA};
BEGIN {
$VERSION = '0.02';
@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::Config::Constants;
require File::Copy;
return File::Copy::copy($file, $Padre::Config::Constants::PADRE_PLUGIN_DIR);
}
1;
#line 142
|
