summaryrefslogtreecommitdiff
path: root/LedgerSMB/Employee.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-26 18:00:56 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-04-26 18:00:56 +0000
commit666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch)
tree19c4444705fd7f7803e0d7b597659c11d7e85b73 /LedgerSMB/Employee.pm
parent2edd2e4de0f08a0a5f23647ea715f279671a0b89 (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.pm23
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;