From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Dec 2012 20:17:43 +0000 (+0100)
Subject: UCW::Implemented try_get method
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=f00e2765b2271e10cf7b283202bbc1ddb577a4da;p=gallery.git

UCW::Implemented try_get method
---

diff --git a/gal/UCW/Gallery.pm b/gal/UCW/Gallery.pm
index 2773fa1..ad1117f 100644
--- a/gal/UCW/Gallery.pm
+++ b/gal/UCW/Gallery.pm
@@ -70,6 +70,11 @@ sub get($$) {
 	}
 }
 
+sub try_get($$) {
+	my ($self, $key) = @_;
+	return $self->{cfg}->{$key};
+}
+
 sub def($@) {
 	my $self = shift;
 	while (my $key = shift @_) {