diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-29 04:40:13 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-29 04:40:13 +0200 |
| commit | a6ef998abc0af8116d712297407cf2d980463efa (patch) | |
| tree | 390e903dc26af70207b04c5f27e3c50f9604fb01 /Xerl/Base.pm | |
| parent | ee2d1870cacf48b851ed15ba09b6a416fdf91e8f (diff) | |
add flag support
Diffstat (limited to 'Xerl/Base.pm')
| -rw-r--r-- | Xerl/Base.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Xerl/Base.pm b/Xerl/Base.pm index 043487b..7301b32 100644 --- a/Xerl/Base.pm +++ b/Xerl/Base.pm @@ -50,6 +50,10 @@ sub AUTOLOAD { $self->{$1} = $_[1]; } + elsif ( $auto =~ /.*::set$/ ) { + $self->{$_[1]} = $_[2]; + + } elsif ( $auto =~ /.*::get_(.+)_ref$/ ) { return defined $self->{$1} ? \$self->{$1} : ['']; |