From a6ef998abc0af8116d712297407cf2d980463efa Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sun, 29 Sep 2013 04:40:13 +0200
Subject: add flag support

---
 Xerl/Base.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Xerl/Base.pm')

diff --git a/Xerl/Base.pm b/Xerl/Base.pm
index 043487b..7301b32 100644
--- a/Xerl/Base.pm
+++ b/Xerl/Base.pm
@@ -49,6 +49,10 @@ sub AUTOLOAD {
   if ( $auto =~ /.*::set_(.+)$/ ) {
     $self->{$1} = $_[1];
 
+  }
+  elsif ( $auto =~ /.*::set$/ ) {
+    $self->{$_[1]} = $_[2];
+
   }
   elsif ( $auto =~ /.*::get_(.+)_ref$/ ) {
     return defined $self->{$1} ? \$self->{$1} : [''];
-- 
cgit v1.2.3