Changeset 7487

Timestamp:

08/23/09 07:10:21 (2 years ago)

Author:

azawawi

Message:

[Perl 6] Perl tidy

Location:

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin

Files:

• Perl6.pm (modified) (1 diff)
• Perl6/Perl6QuickFixProvider.pm (modified) (2 diffs)
• Perl6/Util.pm (modified) (1 diff)

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

@@ -44 +44 @@
 #
 sub _sharedir {
-    return Cwd::realpath( 
-        File::Spec->join( 
-            File::Basename::dirname(__FILE__), 'Perl6' , 'share' ) );
+    return Cwd::realpath( File::Spec->join( File::Basename::dirname(__FILE__), 'Perl6', 'share' ) );
 }
 

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

@@ -5 +5 @@
 use warnings;
 
-use Padre::Wx ();
+use Padre::Wx                  ();
 use Padre::Plugin::Perl6::Util ();
-use Padre::QuickFixProvider ();
+use Padre::QuickFixProvider    ();
 
 our $VERSION = '0.57';
-our @ISA = ('Padre::QuickFixProvider');
+our @ISA     = ('Padre::QuickFixProvider');
 
 #
@@ -35 +35 @@
     }
 
-    my $nl              = Padre::Plugin::Perl6::Util::guess_newline($editor->GetText);
+    my $nl              = Padre::Plugin::Perl6::Util::guess_newline( $editor->GetText );
     my $current_line_no = $editor->GetCurrentLine;
 

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

@@ -97 +97 @@
 
     require Padre::Util;
-    my $doc_new_line_type = Padre::Util::newline_type( $text );
+    my $doc_new_line_type = Padre::Util::newline_type($text);
     my $new_line;
     if ( $doc_new_line_type eq "WIN" ) {