Padre::Plugin::PerlCritic, fix for missing version

[bowtie]

Padre::Plugin::PerlCritic, fix for missing version, so as to be able to run from trunk, also menu mod,

lib/Padre/Plugin/PerlCritic.pm

@@ -7 +7 @@
 use warnings;
 use Padre::Wx     ();
 use Padre::Plugin ();
+our $VERSION = 0.12;
 
 our @ISA = 'Padre::Plugin';
 
@@ -18 +19 @@
     Wx::gettext('Perl Critic');
 }
 
-sub menu_plugins_simple {
+sub menu_plugins {
     my $self = shift;
-    return $self->plugin_name => [
-        Wx::gettext('Perl::Critic Current Document') => sub {
-            $self->critic(@_);
-            }
-    ];
+    my $main = shift;
+
+    # Create a manual menu item
+    my $item = Wx::MenuItem->new(
+        undef,
+        -1,
+        $self->plugin_name,
+    );
+    Wx::Event::EVT_MENU(
+        $main,
+        $item,
+        sub {
+            local $@;
+            eval {
+                $self->critic(@_);
+            };
+        },
+    );
+
+    return $item;
 }
 
 sub critic {

[bowtie]

As per previous conversation

I even ran Perl-Critic against plug-in

[bowtie]

as per ​http://irclog.perlgeek.de/padre/2011-08-29#i_4340776