Changes between Version 45 and Version 46 of PadrePluginCookbookRecipie05

Timestamp:

03/15/12 14:12:02 (14 months ago)

Author:

bowtie

Comment:

--

PadrePluginCookbookRecipie05

@@ -98 +98 @@
 
         # Default, required
-        'Padre::Plugin'         => '0.92',
+        'Padre::Plugin'         => '0.94',
 
         # used by Main, About and by Padre::Plugin::FormBuilder
-        'Padre::Wx'             => '0.92',
-        'Padre::Wx::Main'       => '0.92',
-        'Padre::Wx::Role::Main' => '0.92',
-        'Padre::DB'             => '0.92',
-        'Padre::Logger'         => '0.92',
+        'Padre::Wx'             => '0.94',
+        'Padre::Wx::Main'       => '0.94',
+        'Padre::Wx::Role::Main' => '0.94',
+        'Padre::DB'             => '0.94',
+        'Padre::Logger'         => '0.94',
     );
 }
@@ -258 +258 @@
 
 {{{#!perl
-sub plugin_disable {
-    my $self = shift;
-
-    # Close the dialog if it is hanging around
-    $self->clean_dialog;
-
-    # Unload all our child classes
-    $self->unload(
-        qw{
+# Child modules we need to unload when disabled
+use constant CHILDREN => qw{
             Padre::Plugin::Cookbook::Recipe01::Main
             Padre::Plugin::Cookbook::Recipe01::FBP::MainFB
@@ -279 +272 @@
             Padre::Plugin::Cookbook::Recipe04::About
             Padre::Plugin::Cookbook::Recipe04::FBP::AboutFB
+    };
+
+sub plugin_disable {
+    my $self = shift;
+
+    # Close the dialog if it is hanging around
+    $self->clean_dialog;
+
+    # Unload all our child classes
+        for my $package (CHILDREN) {
+                require Padre::Unload;
+                Padre::Unload->unload($package);
         }
-    );
    
     $self->SUPER::plugin_disable(@_);