diff options
Diffstat (limited to 'LedgerSMB/Location.pm')
| -rw-r--r-- | LedgerSMB/Location.pm | 27 |
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' ); } |