Changeset 2152

Timestamp:

12/21/08 23:16:39 (3 years ago)

Author:

azawawi

Message:

Added some return-s at the end of each sub

File:

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

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

@@ -28 +28 @@
 
 sub padre_interfaces {
-    'Padre::Plugin'         => 0.20,
+    return 'Padre::Plugin'         => 0.20,
 }
 
@@ -34 +34 @@
 sub menu_plugins_simple {
     my $self = shift;
-    'Perl 6' => [
+    return 'Perl 6' => [
         'Export Full HTML' => sub { $self->export_html($FULL_HTML); },
         'Export Simple HTML' => sub { $self->export_html($SIMPLE_HTML); },
@@ -43 +43 @@
 
 sub registered_documents {
-    'application/x-perl6'    => 'Padre::Document::Perl6',
+    return 'application/x-perl6'    => 'Padre::Document::Perl6',
 }
 
@@ -105 +105 @@
     # launch the HTML file in your default browser
     my $file_url = URI::file->new($filename);
-    Wx::LaunchDefaultBrowser($file_url);    
+    Wx::LaunchDefaultBrowser($file_url);
+    
+    return;
 }