From d390dfaf0f4a27463cc462a1fc8e058d91a29584 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 8 Mar 2007 07:07:47 +0000 Subject: 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 --- LedgerSMB/Employee.pm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'LedgerSMB/Employee.pm') 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'); -- cgit v1.2.3