Doing a simple Perltidy commit so that I can evaluate differences between the branches and make sure patches are up to date

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 14 insertions, 13 deletions

diff --git a/LedgerSMB/Location.pm b/LedgerSMB/Location.pm
index dc4b0123..929e1a6c 100644
--- a/LedgerSMB/Location.pm
+++ b/LedgerSMB/Location.pm
@@ -1,3 +1,4 @@
+
 =head1 NAME
 
 LedgerSMB::Location - LedgerSMB class for managing Business Locations
@@ -38,29 +39,29 @@ our $VERSION = '1.0.0';
 our @ISA = qw(LedgerSMB::DBObject);
 
 sub AUTOLOAD {
-	my $self = shift;
-	my $AUTOLOAD = $LedgerSMB::Location::AUTOLOAD;
-	$AUTOLOAD =~ s/^.*:://;
-	my $procname = "location_$AUTOLOAD";
-	$self->exec_method(procname => "location_$AUTOLOAD", args => \@_);
+    my $self     = shift;
+    my $AUTOLOAD = $LedgerSMB::Location::AUTOLOAD;
+    $AUTOLOAD =~ s/^.*:://;
+    my $procname = "location_$AUTOLOAD";
+    $self->exec_method( procname => "location_$AUTOLOAD", args => \@_ );
 }
 
 sub save {
-	$ref = shift @{$self->exec_method(procname =>"location_save")};
-	$self->merge($ref, 'id');
+    $ref = shift @{ $self->exec_method( procname => "location_save" ) };
+    $self->merge( $ref, 'id' );
 }
 
 sub get {
-	$ref = shift @{$self->exec_method(procname =>'location_get')};
-	$self->merge($ref, keys %{$ref});
+    $ref = shift @{ $self->exec_method( procname => 'location_get' ) };
+    $self->merge( $ref, keys %{$ref} );
 }
 
 sub search {
-	$self->{search_results} = 
-		$self->exec_method(procname => 'location_search');
+    $self->{search_results} =
+      $self->exec_method( procname => 'location_search' );
 }
 
 sub list_all {
-	$self->{search_results} = 
-		$self->exec_method(procname => 'location_list_all');
+    $self->{search_results} =
+      $self->exec_method( procname => 'location_list_all' );
 }