1 files changed, 58 insertions, 58 deletions

diff --git a/Xerl/Base.pm b/Xerl/Base.pm
index 53368a9..6b71565 100644
--- a/Xerl/Base.pm
+++ b/Xerl/Base.pm
@@ -33,97 +33,97 @@ use strict;
 use warnings;
 
 sub new ($;) {
-    my $self = shift;
+  my $self = shift;
 
-    bless {@_} => $self;
+  bless {@_} => $self;
 }
 
 sub setval($$$) {
-    my UNIVERSAL $self = $_[0];
+  my UNIVERSAL $self = $_[0];
 
-    $self->{ $_[1] } = $_[2];
+  $self->{ $_[1] } = $_[2];
 
-    return undef;
+  return undef;
 }
 
 sub getval($$) {
-    my UNIVERSAL $self = $_[0];
+  my UNIVERSAL $self = $_[0];
 
-    return defined $self->{ $_[1] } ? $self->{ $_[1] } : '';
+  return defined $self->{ $_[1] } ? $self->{ $_[1] } : '';
 }
 
 sub exists($$) {
-    my UNIVERSAL $self = $_[0];
+  my UNIVERSAL $self = $_[0];
 
-    return exists $self->{ $_[1] } ? 1 : 0;
+  return exists $self->{ $_[1] } ? 1 : 0;
 }
 
 sub AUTOLOAD {
-    my UNIVERSAL $self = $_[0];
-    my $auto = our $AUTOLOAD;
-    return $self if $auto =~ /DESTROY/;
+  my UNIVERSAL $self = $_[0];
+  my $auto = our $AUTOLOAD;
+  return $self if $auto =~ /DESTROY/;
 
-    if ( $auto =~ /.*::set_(.+)$/ ) {
-        $self->{$1} = $_[1];
+  if ( $auto =~ /.*::set_(.+)$/ ) {
+    $self->{$1} = $_[1];
 
-    }
-    elsif ( $auto =~ /.*::get_(.+)_ref$/ ) {
-        return defined $self->{$1} ? \$self->{$1} : [''];
-
-    }
-    elsif ( $auto =~ /.*::get_(.+)$/ ) {
-        return defined $self->{$1} ? $self->{$1} : '';
+  }
+  elsif ( $auto =~ /.*::get_(.+)_ref$/ ) {
+    return defined $self->{$1} ? \$self->{$1} : [''];
 
-    }
-    elsif ( $auto =~ /.*::undef_(.+)$/ ) {
-        return '' unless defined $self->{$1};
+  }
+  elsif ( $auto =~ /.*::get_(.+)$/ ) {
+    return defined $self->{$1} ? $self->{$1} : '';
 
-        my $retval = $self->{$1};
-        undef $self->{$1};
-        return $retval;
+  }
+  elsif ( $auto =~ /.*::undef_(.+)$/ ) {
+    return '' unless defined $self->{$1};
 
-    }
-    elsif ( $auto =~ /.*::append_(.+)$/ ) {
-        if ( defined $self->{$1} ) {
-            $self->{$1} .= $_[1];
+    my $retval = $self->{$1};
+    undef $self->{$1};
+    return $retval;
 
-        }
-        else {
-            $self->{$1} = $_[1];
-        }
+  }
+  elsif ( $auto =~ /.*::append_(.+)$/ ) {
+    if ( defined $self->{$1} ) {
+      $self->{$1} .= $_[1];
 
     }
-    elsif ( $auto =~ /.*::push_(.+)$/ ) {
-        if ( exists $self->{$1} ) {
-            push @{ $self->{$1} }, $_[1];
+    else {
+      $self->{$1} = $_[1];
+    }
 
-        }
-        else {
-            $self->{$1} = [ $_[1] ];
-        }
+  }
+  elsif ( $auto =~ /.*::push_(.+)$/ ) {
+    if ( exists $self->{$1} ) {
+      push @{ $self->{$1} }, $_[1];
 
     }
-    elsif ( $auto =~ /.*::first_(.+)$/ ) {
-        return exists $self->{$1} ? ${ $self->{$1} }[0] : '';
-
+    else {
+      $self->{$1} = [ $_[1] ];
     }
-    elsif ( $auto =~ /.*::(.+)_exists$/ ) {
-        return exists $self->{$1} ? 1 : 0;
 
-    }
-    elsif ( $auto =~ /.*::(.+)_length$/ ) {
-        return ( ref $self->{$1} eq 'ARRAY' ) ? scalar @{ $self->{$1} } : 0;
+  }
+  elsif ( $auto =~ /.*::first_(.+)$/ ) {
+    return exists $self->{$1} ? ${ $self->{$1} }[0] : '';
 
-    }
-    elsif ( $auto =~ /.*::(.+)_isset$/ ) {
-        return exists $self->{$1} ? $self->{ $_[0] } : 0;
+  }
+  elsif ( $auto =~ /.*::(.+)_exists$/ ) {
+    return exists $self->{$1} ? 1 : 0;
 
-    }
-    else {
-        print "$auto is not a method of $self or UNIVERSAL\n";
-    }
+  }
+  elsif ( $auto =~ /.*::(.+)_length$/ ) {
+    return ( ref $self->{$1} eq 'ARRAY' ) ? scalar @{ $self->{$1} } : 0;
+
+  }
+  elsif ( $auto =~ /.*::(.+)_isset$/ ) {
+    return exists $self->{$1} ? $self->{ $_[0] } : 0;
+
+  }
+  else {
+    print "$auto is not a method of $self or UNIVERSAL\n";
+  }
 
-    return $self;
+  return $self;
 }
 
 1;