Changeset 2154

Timestamp:

12/21/08 23:45:11 (3 years ago)

Author:

azawawi

Message:

Better indents in Document::Perl6

File:

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

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

@@ -23 +23 @@
     my $text   = $self->text_get;
 
-  my $t0 = Benchmark->new;
-  my $p = Syntax::Highlight::Perl6->new(
-    text => $text,
-  );
+    my $t0 = Benchmark->new;
+    my $p = Syntax::Highlight::Perl6->new(
+        text => $text,
+    );
 
-  my @tokens;
-
-    eval {
-    @tokens = $p->tokens;
-  1;
-    };
-
+    my @tokens;
+    eval { @tokens = $p->tokens;   1; };
     if($EVAL_ERROR) {
         say "Parsing error, bye bye ->colorize";
@@ -42 +37 @@
     $self->remove_color;
 
-  my %colors = (
+    my %colors = (
         'comp_unit'  => Px::PADRE_BLUE,
         'scope_declarator' => Px::PADRE_RED,
@@ -65 +60 @@
         '_hash' => Px::PADRE_ORANGE,
         '_comment' => Px::PADRE_GREEN,
-  );
-  for my $htoken (@tokens) {
-    my %token = %{$htoken};
-    my $color = $colors{ $token{rule} };
-    if($color) {
-      my $len = length $token{buffer};
-      my $start = $token{last_pos} - $len;
-      $editor->StartStyling($start, $color);
-      $editor->SetStyling($len, $color);
+    );
+
+    for my $htoken (@tokens) {
+        my %token = %{$htoken};
+        my $color = $colors{ $token{rule} };
+        if($color) {
+              my $len = length $token{buffer};
+              my $start = $token{last_pos} - $len;
+              $editor->StartStyling($start, $color);
+              $editor->SetStyling($len, $color);
+        }
     }
-  }
 
-  my $td = timediff(new Benchmark, $t0);
-  say "->colorize took:" . timestr($td) ;
+      my $td = timediff(new Benchmark, $t0);
+      say "->colorize took:" . timestr($td) ;
 }