SF.net SVN: ledger-smb: [863] trunk/LedgerSMB.pm

[..hidden..]

Revision: 863
          http://svn.sourceforge.net/ledger-smb/?rev=863&view=rev
Author:   einhverfr
Date:     2007-03-07 23:07:59 -0800 (Wed, 07 Mar 2007)

Log Message:
-----------
refactoring some methods and getting rid of unnecessary multiple inheritance

Modified Paths:
--------------
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2007-03-08 07:07:47 UTC (rev 862)
+++ trunk/LedgerSMB.pm	2007-03-08 07:07:59 UTC (rev 863)
@@ -3114,4 +3114,12 @@
 	$rv;
 }
 
+sub merge {
+	my $self = shift @_;
+	my $src = shift @_;
+	for $arg (@_){
+		$self->{$arg} = $src->{$arg};
+	}
+}
+
 1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.