Sig fig context

macros/contexts/contextExtensions.pl

@@ -460,6 +460,26 @@ sub extensionContext {
 	return $class;
 }
 
+#
+# Trap any calls to super-class methods that aren't in the overridden
+# class and pass them on to the original class.
+#
+sub AUTOLOAD {
+	our $AUTOLOAD;
+	my $self = shift;
+	return unless defined $self;
+	my $class  = $self->extensionContext;
+	my $method = (split(/::/, $AUTOLOAD))[-1];
+	return if $method eq 'DESTROY';
+
+	if (substr($AUTOLOAD, 0, length($class) + 2) eq $class . '::') {
+		my $code = $self->super($method);
+		return &$code($self, @_) if $code;
+	}
+
+	die "Can't locate object method '$method' via package \"" . ref($self) . (getCaller() // '');
+}
+
 #################################################################################################
 #################################################################################################
 
@@ -538,7 +558,10 @@ package context::Extensions::Data;
 #
 #  Get the object's extensionData
 #
-sub extensionData { (shift)->typeRef->{ $self->extensionID } }
+sub extensionData {
+	my $self = shift;
+	$self->typeRef->{ $self->extensionID };
+}
 
 #
 #  Set the object's extensionData (and the rest of its type)