Changeset 5988 for trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm

Timestamp:

07/09/09 17:41:59 (3 years ago)

Author:

azawawi

Message:

[Perl 6] use only one grok instance per dialog lifetime

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm (modified) (3 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6HelpDialog.pm

@@ -24 +24 @@
     _plugin            => '_plugin',             # plugin object
     _topic             => '_topic',              # default help topic
+    _grok              => '_grok',               # Perl 6 documentation reader instance 
 };
 
@@ -72 +73 @@
         if($help_target) {
             eval {
-                require App::Grok;
-                my $grok = App::Grok->new;
-                $help_html = $grok->render_target($help_target,'xhtml');
+                $help_html = $self->_grok->render_target($help_target,'xhtml');
             };
         }
@@ -217 +216 @@
     eval {
         require App::Grok;
-        my $grok = App::Grok->new;
-        my @targets_index = sort $grok->target_index();
+        $self->_grok(App::Grok->new);
+        my @targets_index = sort $self->_grok->target_index();
         $self->_targets_index( \@targets_index ); 
     };