Allow new() to take a ref to a hash of arguments

nigelhorne · Oct 15, 2023 · f89bd3c · f89bd3c
1 parent 4502661
commit f89bd3c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,7 @@ Revision history for Genealogy::ObituaryDailyTimes
 
 0.10
 	Latest DB.pm from NJH-Snippets
+	Allow new() to take a ref to a hash of arguments
 
 0.09	Sat Jun 24 09:14:41 EDT 2023
 	create_db failed on 5.36.1

diff --git a/lib/Genealogy/ObituaryDailyTimes.pm b/lib/Genealogy/ObituaryDailyTimes.pm
@@ -39,8 +39,9 @@ Takes two optionals arguments:
 =cut
 
 sub new {
-	my($proto, %args) = @_;
-	my $class = ref($proto) || $proto;
+	my $class = $_[0];
+	shift;
+	my %args = (ref($_[0]) eq 'HASH') ? %{$_[0]} : @_;
 
 	if(!defined($class)) {
 		# Use Genealogy::ObituaryDailyTimes->new, not Genealogy::ObituaryDailyTimes::new