Ticket #66: par_plugin_support.diff

lib/Padre.pm

@@ -206 +206 @@
         config_dir  => undef,
         config_yaml => undef,
         config_db   => undef,
+        plugin_dir  => undef,
         recent      => {
             files => [],
             pod   => [],
@@ -216 +217 @@
     $self->{config_dir}  = Padre::Config->default_dir;
     $self->{config_yaml} = Padre::Config->default_yaml;
     $self->{config_db}   = Padre::Config->default_db;
+    $self->{plugin_dir}  = Padre::Config->default_plugin_dir;
 
     $self->load_config;
     $self->_process_command_line;
@@ -285 +287 @@
 
 sub _locate_plugins {
     my ($self) = @_;
-    my %plugins;
+
+    # Try the plugin directory first:
+    my $plugin_dir = $self->{plugin_dir};
+    unshift @INC, $plugin_dir unless grep {$_ eq $plugin_dir} @INC;
+
     foreach my $path (@INC) {
         my $dir = File::Spec->catdir($path, 'Padre', 'Plugin');
         opendir my $dh, $dir or next;
         while (my $file = readdir $dh) {
             if ($file =~ /^\w+\.pm$/) {
                 $file =~ s/\.pm$//;
-                $plugins{$file} = 0;
-                my $module = "Padre::Plugin::$file";
-        eval "use $module"; ## no critic
-                if ($@) {
-                    warn "ERROR while trying to load plugin '$file': $@";
-                    next;
-                }
-                
-                $plugins{$file} = $module;
+                $self->_load_plugin($file);
             }
         }
     }
-    $self->{plugins} = \%plugins;
+
+    $self->_locate_plugins_in_par();
     return;
 }
 
+sub _load_plugin {
+    my ($self, $file) = @_;
+    my $plugins = $self->{plugins} || {};
+    $plugins->{$file} = 0;
+                  
+    my $module = "Padre::Plugin::$file";
+    eval "use $module"; ## no critic
+    if ($@) {
+        warn "ERROR while trying to load plugin '$file': $@";
+        return();
+    }
+    $plugins->{$file} = $module;
+    $self->{plugins} = $plugins;
+    return 1;
+}
+
+sub _locate_plugins_in_par {
+    my ($self) = @_;
+
+    # setup the PAR environment:
+    my $plugin_dir = $self->{plugin_dir};
+    my $cache_dir = File::Spec->catdir($plugin_dir, 'cache');
+    $ENV{PAR_GLOBAL_TEMP} = $cache_dir;
+    File::Path::mkpath($cache_dir) if not -e $cache_dir;
+    $ENV{PAR_TEMP} = $cache_dir;
+
+    require PAR;
+
+    opendir my $dh, $plugin_dir or return;
+    while (my $file = readdir $dh) {
+        if ($file =~ /^\w+\.par$/i) {
+            my $parfile = File::Spec->catfile($plugin_dir, $file);
+            $file =~ s/\.par$//i;
+            PAR->import($parfile);
+            $self->_load_plugin($file);
+        }
+    }
+    closedir($dh);
+    return;
+}
+
 sub usage {
     die <<"END_USAGE";
 Usage: $0 [FILENAMEs]

lib/Padre/Config.pm

@@ -3 +3 @@
 use 5.008;
 use strict;
 use warnings;
+use File::Path    ();
 use File::Spec    ();
 use File::HomeDir ();
 use YAML::Tiny    ();
@@ -43 +44 @@
     );
 }
 
+sub default_plugin_dir {
+    my $pluginsdir = File::Spec->catdir(
+        $_[0]->default_dir,
+        'plugins',
+    );
+    my $plugins_full_path = File::Spec->catdir(
+        $pluginsdir, 'Padre', 'Plugin'
+    );
+    unless ( -e $plugins_full_path) {
+        File::Path::mkpath($plugins_full_path) or
+        die "Cannot create plugins dir '$plugins_full_path' $!";
+    }
 
+    return $pluginsdir;
+}
 
 
 
+
+
 #####################################################################
 # Constructor and Serialization
 

Build.PL

@@ -26 +26 @@
         'File::Slurp'             => 0,
     'Module::Inspector'       => '0.04',
         'ORLite'                  => '0.10',
+        'PAR'                     => '0.970',
         'Pod::POM'                => 0,
         'Pod::Simple'             => 0,
     'Probe::Perl'             => '0.01',