From 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 26 Apr 2007 18:00:56 +0000 Subject: 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 --- LedgerSMB/Employee.pm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'LedgerSMB/Employee.pm') 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; -- cgit v1.2.3