Changeset 8558

Timestamp:

10/03/09 04:07:34 (2 years ago)

Author:

Sewi

Message:

Perl tidy

Location:

trunk/Padre

Files:

• lib/Padre/Document/Perl/Beginner.pm (modified) (1 diff)
• t/75-perl-beginner.t (modified) (5 diffs)

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

@@ -70 +70 @@
     my $error_start_position = length($prematch);
 
-    my $line = $editor->LineFromPosition( $error_start_position );
+    my $line = $editor->LineFromPosition($error_start_position);
     ++$line; # Editor starts counting at 0
 

trunk/Padre/t/75-perl-beginner.t

@@ -8 +8 @@
 
 sub LineFromPosition {
- return 0;
+    return 0;
 }
 
@@ -14 +14 @@
 
 sub gettext {
- return $_[0];
+    return $_[0];
 }
 
@@ -26 +26 @@
 
 my %TEST = (
-    'split1.pl'                    => "Line 1: The second parameter of split is a string, not an array",
-    'split2.pl'                    => "Line 1: The second parameter of split is a string, not an array",
-    'warning.pl'                   => "Line 1: You need to write use warnings (with an s at the end) and not use warning.",
-    'boolean_expressions_or.pl'    => 'TODO',
+    'split1.pl'                 => "Line 1: The second parameter of split is a string, not an array",
+    'split2.pl'                 => "Line 1: The second parameter of split is a string, not an array",
+    'warning.pl'                => "Line 1: You need to write use warnings (with an s at the end) and not use warning.",
+    'boolean_expressions_or.pl' => 'TODO',
     'boolean_expressions_pipes.pl' => 'TODO',
     'match_default_scalar.pl'      => 'TODO',
@@ -37 +37 @@
     'return_stronger_than_or.pl'   => 'TODO',
     'grep_always_true.pl'          => 'TODO',
-    'my_argv.pl' => 'TODO',                                          # "my" variable @ARGV masks global variable at ...
+    'my_argv.pl'                   => 'TODO', # "my" variable @ARGV masks global variable at ...
     'else_if.pl' => "Line 1: 'else if' is wrong syntax, correct if 'elsif'.",
 
@@ -48 +48 @@
 
 use Padre::Document::Perl::Beginner;
-my $b = Padre::Document::Perl::Beginner->new(document => {editor => bless {},'local::t75'});
+my $b = Padre::Document::Perl::Beginner->new( document => { editor => bless {}, 'local::t75' } );
 
 isa_ok $b, 'Padre::Document::Perl::Beginner';