From c5cc9bfe662434a10f4086ea93ea4d85261d91d2 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Mon, 16 Sep 2013 00:06:23 +0200
Subject: indent README example code

---
 README | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/README b/README
index b9257fc..bf45d9c 100644
--- a/README
+++ b/README
@@ -26,8 +26,8 @@ If no real ret val, set undef; explicitly
 sub foo() {
   # Do some stuff
 ...
-# Set explicit undef ret value
-return undef;
+  # Set explicit undef ret value
+  return undef;
 }
 
 Private subs use _ as its prefix and are called only from the current package.
@@ -37,34 +37,34 @@ package Xerl::Foo::Bla;
 .
 
 sub _iamprivate($) {
-my Xerl::Foo:Bla $self = $_[0];
-.
-.
+  my Xerl::Foo:Bla $self = $_[0];
+  .
+  .
 }
 
 sub iampublic($) {
-my Xerl::Foo:Bla $self = $_[0];
-$self->_iamprivate();
-return undef;
+  my Xerl::Foo:Bla $self = $_[0];
+  $self->_iamprivate();
+  return undef;
 }
 
 Static subs (not OOP) are in CAPITAL letters. 
 
 sub IAMSTATIC($) {
-print shift;
-return 'Hello World';
+  print shift;
+  return 'Hello World';
 }
 
 sub iamdynamic($) {
-my Xerl::Foo:Bla $self = $_[0];
-return Xerl::Foo::Bla::IAMSTATIC( $self->get_somevalue() );
+  my Xerl::Foo:Bla $self = $_[0];
+  return Xerl::Foo::Bla::IAMSTATIC( $self->get_somevalue() );
 }
 
 Static private subs start with _ and are written in CAPITAL letters
 
 sub _IAMSTATICPRIVATE() { 
-.
-.
+  .
+  .
 }
 
 Use Pidy to automaically restyle the code! (make perltidy)
-- 
cgit v1.2.3