diff options
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} : ['']; |