refactoring some methods and getting rid of unnecessary multiple inheritance

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

1 files changed, 1 insertions, 12 deletions

diff --git a/LedgerSMB/Employee.pm b/LedgerSMB/Employee.pm
index 007b44d5..1165c441 100644
--- a/LedgerSMB/Employee.pm
+++ b/LedgerSMB/Employee.pm
@@ -11,9 +11,6 @@ This module creates object instances based on LedgerSMB's in-database ORM.
 The following method is static:
 =item new ($LedgerSMB object);
 
-=item merge ($hashref, @attrs)
-copies @attrs from $hashref to $self.
-
 The following methods are passed through to stored procedures via Autoload.
 =item save
 =item get
@@ -34,7 +31,7 @@ your software.
 package LedgerSMB::Employee;
 use LedgerSMB;
 use LedgerSMB::DBObject;
-@ISA = (LedgerSMB, LedgerSMB::DBObject);
+@ISA = (LedgerSMB::DBObject);
 
 sub AUTOLOAD {
 	my $procname = "employee_$LedgerSMB::Employee::Autoload";
@@ -53,14 +50,6 @@ sub new {
 }
 
 
-sub merge {
-	my $self = shift @_;
-	my $src = shift @_;
-	for $arg (@_){
-		$self->{$arg} = $src->{$arg};
-	}
-}
-
 sub save {
 	my $hashref = shift ($self->exec_method("employee_save"));
 	$self->merge($hashref, 'id');