Merge branch 'hosts' of https://github.com/snonux/xerl into hosts

1 files changed, 122 insertions, 0 deletions

diff --git a/Xerl/Base.pm b/Xerl/Base.pm
new file mode 100644
index 0000000..9ecd3bc
--- /dev/null
+++ b/Xerl/Base.pm
@@ -0,0 +1,122 @@
+# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow
+#
+# 	E-Mail: xerl@dev.buetow.org 	WWW: https://xerl.buetow.org
+#
+# This is free software, you may use it and distribute it under the same
+# terms as Perl itself.
+
+package UNIVERSAL;
+
+use strict;
+use warnings;
+
+use 5.14.0;
+
+use Data::Dumper;
+
+sub new {
+  my $self = shift;
+
+  bless {@_} => $self;
+}
+
+sub setval {
+  my UNIVERSAL $self = $_[0];
+
+  $self->{ $_[1] } = $_[2];
+
+  return undef;
+}
+
+sub getval {
+  my UNIVERSAL $self = $_[0];
+
+  return defined $self->{ $_[1] } ? $self->{ $_[1] } : '';
+}
+
+sub exists {
+  my UNIVERSAL $self = $_[0];
+
+  return exists $self->{ $_[1] } ? 1 : 0;
+}
+
+sub AUTOLOAD {
+  my UNIVERSAL $self = $_[0];
+  my $auto = our $AUTOLOAD;
+
+  return $self if $auto =~ /DESTROY/;
+
+  if ( $auto =~ /.*::set_(.+)$/ ) {
+    $self->{$1} = $_[1];
+
+  }
+  elsif ( $auto =~ /.*::set$/ ) {
+    $self->{ $_[1] } = $_[2];
+
+  }
+  elsif ( $auto =~ /.*::get_(.+)_ref$/ ) {
+    return defined $self->{$1} ? \$self->{$1} : [''];
+
+  }
+  elsif ( $auto =~ /.*::get_(.+)$/ ) {
+    return defined $self->{$1} ? $self->{$1} : '';
+
+  }
+  elsif ( $auto =~ /.*::undef_(.+)$/ ) {
+    return '' unless defined $self->{$1};
+
+    my $retval = $self->{$1};
+    undef $self->{$1};
+    return $retval;
+
+  }
+  elsif ( $auto =~ /.*::append_(.+)$/ ) {
+    if ( defined $self->{$1} ) {
+      $self->{$1} .= $_[1];
+
+    }
+    else {
+      $self->{$1} = $_[1];
+    }
+
+  }
+  elsif ( $auto =~ /.*::push_(.+)$/ ) {
+    if ( exists $self->{$1} ) {
+      push @{ $self->{$1} }, $_[1];
+
+    }
+    else {
+      $self->{$1} = [ $_[1] ];
+    }
+
+  }
+  elsif ( $auto =~ /.*::first_(.+)$/ ) {
+    return exists $self->{$1} ? ${ $self->{$1} }[0] : '';
+
+  }
+  elsif ( $auto =~ /.*::(.+)_exists$/ ) {
+    return exists $self->{$1} ? 1 : 0;
+
+  }
+  elsif ( $auto =~ /.*::(.+)_length$/ ) {
+    return ( ref $self->{$1} eq 'ARRAY' ) ? scalar @{ $self->{$1} } : 0;
+
+  }
+  elsif ( $auto =~ /.*::(.+)_isset$/ ) {
+    return exists $self->{$1} ? $self->{ $_[0] } : 0;
+
+  }
+  elsif ( $auto =~ /.*::dumper$/ ) {
+    say Dumper @_;
+    return undef;
+
+  }
+  else {
+    say "$auto is not a method of $self or UNIVERSAL";
+  }
+
+  return $self;
+}
+
+1;
+