Add [wrapper] tag to load a class and instantiate an object with para…

…meters passed to the tag. You can also set a scratch variable to the resulting object and use it elsewhere in tags or ITL.
interchange · Feb 10, 2017 · 2381e04 · 2381e04
1 parent e19840c
commit 2381e04
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/global/wrapper.tag b/global/wrapper.tag
@@ -0,0 +1,35 @@
+UserTag wrapper Order class
+UserTag wrapper AddAttr
+UserTag wrapper Routine <<EOR
+sub {
+    my ($class, $opt) = @_;
+    my (%args, $object, $scratch_var);
+
+    # copy tag attributes, drop class and reparse
+    %args = %$opt if $opt;
+    delete $args{class};
+    delete $args{reparse};
+    $scratch_var = delete $args{scratch};
+
+    # load class
+    eval "require $class";
+
+    if ($@) {
+        die "[wrapper]: Failed to load class $class: $@";
+    }
+
+    eval {
+        $object = $class->new(%args);
+    };
+
+    if ($@) {
+        die "[wrapper] Failed to instantiate class $class: $@";
+    }
+
+    if ($scratch_var) {
+        $Scratch->{$scratch_var} = $object;
+    }
+
+    return $object;
+}
+EOR