From ab7cede7f91f48f553a86f500d2bcb7408fbb84a Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 13 Mar 2007 05:41:18 +0000 Subject: LedgerSMB::DBObject LedgerSMB::Setting LedgerSMB::Employee, and LedgerSMB::Location all now use strict git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@890 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Setting.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'LedgerSMB/Setting.pm') diff --git a/LedgerSMB/Setting.pm b/LedgerSMB/Setting.pm index 959fcaeb..e257d63a 100644 --- a/LedgerSMB/Setting.pm +++ b/LedgerSMB/Setting.pm @@ -30,25 +30,29 @@ your software. package LedgerSMB::Setting; use LedgerSMB; use LedgerSMB::DBObject; +use strict; our $VERSION = '1.0.0'; our @ISA = qw(LedgerSMB::DBObject); sub AUTOLOAD { my $self = shift; + my $AUTOLOAD = $LedgerSMB::Setting::AUTOLOAD; $AUTOLOAD =~ s/^.*:://; my $procname = "setting_$AUTOLOAD"; $self->exec_method($procname, @_); } sub get { - $self = shift; - $hashref = @{$self->exec_method('setting_get'); + my $self = shift; + my $hashref = shift @{$self->exec_method('setting_get')}; $self->merge($hashref, 'value'); +} sub parse { - $self = shift; + my $self = shift; + my $myconfig = shift; # Long-run, we may want to run this via Parse::RecDescent, but this is # at least a start for here. Chris T. -- cgit v1.2.3