Changeset 9576 for trunk/Padre-Plugin-Catalyst/lib/Padre/Wx/Menu/Catalyst.pm

Timestamp:

12/09/09 15:59:58 (2 years ago)

Author:

garu

Message:

Fixing template functions for Catalyst Plugin (SeWi?++)

File:

• trunk/Padre-Plugin-Catalyst/lib/Padre/Wx/Menu/Catalyst.pm (modified) (2 diffs)

trunk/Padre-Plugin-Catalyst/lib/Padre/Wx/Menu/Catalyst.pm

@@ -8 +8 @@
 use Padre::Wx       ();
 use Padre::Wx::Menu ();
+use Params::Util '_INSTANCE';
+use Padre::Current '_CURRENT';
 
 our $VERSION = '0.51';
@@ -57 +59 @@
     # Disable document-specific entries if we are in a Perl project
     # but not in a Perl document.
-    $self->{beginner_check}->Enable($perl);
+# FIXME: the two commands below crash unless they are defined. Should they
+# ALWAYS be defined or should we leave them like so? (garu)
+    $self->{beginner_check}->Enable($perl) if defined $self->{beginner_check};
 
     # Apply config-driven state
-    $self->{autocomplete_brackets}->Check( $config->autocomplete_brackets );
+    $self->{autocomplete_brackets}->Check( $config->autocomplete_brackets )
+        if defined $self->{autocomplete_brackets};
 
     return;