Differences

This shows you the differences between two versions of the page.

--- programming:mojo [2018/10/24 12:32] – created clemix
+++ programming:mojo [2020/01/26 20:08] (current) – clemix
@@ Line 13: / Line 13: @@
   %% Replaced with "%", useful for generating templates
+====== Constructor ======
+<code perl>
+sub new {
+  my $class = shift;
+  bless @_ ? @_ > 1 ? {@_} : {%{$_[0]}} : {}, ref $class || $class;
+}
+</code>
+<code perl>
+sub new {
+    my ($class, $aaa) = @_;
+    my $self;
+    if (ref($class) ne '' && $class->isa('my_expected_subclass')) {
+        $self = $class;
+    } else {
+        $self = bless {class => $class}, $class;
+    }
+    $self->{xyz}      = $aaa;
+    return $self;
+}
+</code>