diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm | 13 |
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; |