summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm13
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm b/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm
index 7ddb921cdfc..ed627db442a 100644
--- a/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm
+++ b/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm
@@ -3,6 +3,10 @@ use warnings;
package Test::Tester::Delegate;
+our $VERSION = '1.302073';
+
+use Scalar::Util();
+
use vars '$AUTOLOAD';
sub new
@@ -29,4 +33,13 @@ sub AUTOLOAD
goto &$ref;
}
+sub can {
+ my $this = shift;
+ my ($sub) = @_;
+
+ return $this->{Object}->can($sub) if Scalar::Util::blessed($this);
+
+ return $this->SUPER::can(@_);
+}
+
1;