summaryrefslogtreecommitdiff
path: root/Xerl/Base.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Xerl/Base.pm')
-rw-r--r--Xerl/Base.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/Xerl/Base.pm b/Xerl/Base.pm
index fcf3857..cfddd89 100644
--- a/Xerl/Base.pm
+++ b/Xerl/Base.pm
@@ -1,4 +1,4 @@
-# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow
+# Xerl (c) 2005-2011, 2013, 2014 by Paul Buetow
#
# E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org
#
@@ -14,13 +14,13 @@ use 5.14.0;
use Data::Dumper;
-sub new ($;) {
+sub new {
my $self = shift;
bless {@_} => $self;
}
-sub setval($$$) {
+sub setval {
my UNIVERSAL $self = $_[0];
$self->{ $_[1] } = $_[2];
@@ -28,13 +28,13 @@ sub setval($$$) {
return undef;
}
-sub getval($$) {
+sub getval {
my UNIVERSAL $self = $_[0];
return defined $self->{ $_[1] } ? $self->{ $_[1] } : '';
}
-sub exists($$) {
+sub exists {
my UNIVERSAL $self = $_[0];
return exists $self->{ $_[1] } ? 1 : 0;