[svn:parrot] r21447 - trunk/examples/benchmarks

Author: paultcochrane
Date: Fri Sep 21 02:28:40 2007
New Revision: 21447

Modified:
   trunk/examples/benchmarks/oo1.pl
   trunk/examples/benchmarks/oo2.pl
   trunk/examples/benchmarks/oo3.pl
   trunk/examples/benchmarks/oo4.pl
   trunk/examples/benchmarks/oo5.pl
   trunk/examples/benchmarks/oo6.pl

Log:
[examples] Tidied code with perltidy

Modified: trunk/examples/benchmarks/oo1.pl
==============================================================================
--- trunk/examples/benchmarks/oo1.pl    (original)
+++ trunk/examples/benchmarks/oo1.pl    Fri Sep 21 02:28:40 2007
@@ -15,7 +15,7 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 1;

Modified: trunk/examples/benchmarks/oo2.pl
==============================================================================
--- trunk/examples/benchmarks/oo2.pl    (original)
+++ trunk/examples/benchmarks/oo2.pl    Fri Sep 21 02:28:40 2007
@@ -15,7 +15,7 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 1;

Modified: trunk/examples/benchmarks/oo3.pl
==============================================================================
--- trunk/examples/benchmarks/oo3.pl    (original)
+++ trunk/examples/benchmarks/oo3.pl    Fri Sep 21 02:28:40 2007
@@ -16,7 +16,7 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 

Modified: trunk/examples/benchmarks/oo4.pl
==============================================================================
--- trunk/examples/benchmarks/oo4.pl    (original)
+++ trunk/examples/benchmarks/oo4.pl    Fri Sep 21 02:28:40 2007
@@ -16,7 +16,7 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 

Modified: trunk/examples/benchmarks/oo5.pl
==============================================================================
--- trunk/examples/benchmarks/oo5.pl    (original)
+++ trunk/examples/benchmarks/oo5.pl    Fri Sep 21 02:28:40 2007
@@ -16,20 +16,20 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 
 sub i {
     my $self = shift;
     if (@_) { return $self->[0] = shift }
-    else { return $self->[0] }
+    else    { return $self->[0] }
 }
 
 sub j {
     my $self = shift;
     if (@_) { return $self->[1] = shift }
-    else { return $self->[1] }
+    else    { return $self->[1] }
 }
 
 1;

Modified: trunk/examples/benchmarks/oo6.pl
==============================================================================
--- trunk/examples/benchmarks/oo6.pl    (original)
+++ trunk/examples/benchmarks/oo6.pl    Fri Sep 21 02:28:40 2007
@@ -16,20 +16,20 @@
 package Foo;
 
 sub new {
-    my $self = ref $_[0] ? ref shift: shift;
+    my $self = ref $_[0] ? ref shift : shift;
     return bless [ 10, 20 ], $self;
 }
 
 sub i {
     my $self = shift;
     if (@_) { return $self->[0] = shift }
-    else { return $self->[0] }
+    else    { return $self->[0] }
 }
 
 sub j {
     my $self = shift;
     if (@_) { return $self->[1] = shift }
-    else { return $self->[1] }
+    else    { return $self->[1] }
 }
 
 1;