diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
commit | 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch) | |
tree | 19c4444705fd7f7803e0d7b597659c11d7e85b73 /LedgerSMB/Employee.pm | |
parent | 2edd2e4de0f08a0a5f23647ea715f279671a0b89 (diff) |
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
Diffstat (limited to 'LedgerSMB/Employee.pm')
-rw-r--r-- | LedgerSMB/Employee.pm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm index 0512cf64..dd74be75 100644 --- a/LedgerSMB/Employee.pm +++ b/LedgerSMB/Employee.pm @@ -1,3 +1,4 @@ + =head1 NAME LedgerSMB::Employee - LedgerSMB class for managing Employees @@ -34,25 +35,27 @@ use strict; our $VERSION = '1.0.0'; sub save { - my $self = shift; - my $hashref = shift @{$self->exec_method(procname => "employee_save")}; - $self->merge($hashref, 'id'); + my $self = shift; + my $hashref = shift @{ $self->exec_method( procname => "employee_save" ) }; + $self->merge( $hashref, 'id' ); } sub get { - my $self = shift; - my $hashref = shift @{$self->exec_method(procname => "employee_get")}; - $self->merge($hashref, keys %{$hashref}); + my $self = shift; + my $hashref = shift @{ $self->exec_method( procname => "employee_get" ) }; + $self->merge( $hashref, keys %{$hashref} ); } sub list_managers { - my $self = shift; - $self->{manager_list} = $self->exec_method(procname => "employee_list_managers"); + my $self = shift; + $self->{manager_list} = + $self->exec_method( procname => "employee_list_managers" ); } sub search { - my $self = shift; - $self->{search_results} = $self->exec_method(procname => "employee_search"); + my $self = shift; + $self->{search_results} = + $self->exec_method( procname => "employee_search" ); } 1; |