Changeset 499

Timestamp:

10/26/08 08:04:29 (3 years ago)

Author:

tsee

Message:

add 'plugin' and 'installplugin' targets

File:

• plugins/perltidy/Build.PL (modified) (2 diffs)

plugins/perltidy/Build.PL

@@ -4 +4 @@
 use Module::Build ();
 
-my $builder = Module::Build->new(
+my $class = Module::Build->subclass(
+  class => 'Padre::Plugin::Builder',
+  code => <<'HEREDOC',
+sub ACTION_plugin {
+  my ($self) = @_;
+
+  # Need PAR::Dist
+  if ( not eval { require PAR::Dist; PAR::Dist->VERSION(0.17) } ) {
+    $self->log_warn( "In order to create .par files, you need to install PAR::Dist first." );
+    return();
+  }
+  $self->depends_on( 'build' );
+  my $module = $self->module_name();
+  $module =~ s/^Padre::Plugin:://;
+
+  return PAR::Dist::blib_to_par(
+    name => $self->dist_name,
+    version => $self->dist_version,
+    dist => "$module.par",
+  );
+}
+
+sub ACTION_installplugin {
+  my ($self) = @_;
+
+  $self->depends_on( 'plugin' );
+
+  my $module = $self->module_name();
+  $module =~ s/^Padre::Plugin:://;
+  my $plugin = "$module.par";
+
+  require Padre;
+  my $plugin_dir = Padre::Config->default_plugin_dir;
+
+  return $self->copy_if_modified(from => $plugin, to_dir => $plugin_dir);
+}
+HEREDOC
+);
+
+my $builder = $class->new(
     module_name          => 'Padre::Plugin::PerlTidy',
     license              => 'perl',
@@ -21 +60 @@
 
 $builder->create_build_script();
+