UCW::Implemented try_get method

diff --git a/gal/UCW/Gallery.pm b/gal/UCW/Gallery.pm
index 2773fa14626462f722c2460c46302593f2ec5c26..ad1117f51e86a162fadf29becf597164c17cd7cc 100644 (file)
--- 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 @_) {