Changeset 11120 for trunk/Padre/lib/Padre/Document/Perl.pm

Timestamp:

03/15/10 04:51:54 (2 years ago)

Author:

azawawi

Message:

Perl tidy (25 files)

File:

• trunk/Padre/lib/Padre/Document/Perl.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -346 +346 @@
 # Implemented as a task. See Padre::Task::SyntaxChecker::Perl
 sub check_syntax {
-    shift->_check_syntax_internals( { @_,
-        background => 0 } );
+    shift->_check_syntax_internals(
+        {   @_,
+            background => 0
+        }
+    );
 }
 
 sub check_syntax_in_background {
-    shift->_check_syntax_internals( { @_,
-        background => 1 } );
+    shift->_check_syntax_internals(
+        {   @_,
+            background => 1
+        }
+    );
 }
 
@@ -1294 +1300 @@
     my $first  = $editor->PositionFromLine($line);
     my $col    = $pos - $first;
-    my $text   = $editor->GetTextRange($first, $pos);
+    my $text   = $editor->GetTextRange( $first, $pos );
 
     $editor->AddText( $self->newline );
@@ -1301 +1307 @@
     $editor->AddText($text);
 
-    $editor->SetCurrentPos( $pos + $col + 1);
+    $editor->SetCurrentPos( $pos + $col + 1 );
 
     return 1;