You can use code to write your wrappers:
require X11::GUITest; for my $imported (qw/SendKeys FindWindowLike ClickWindow SetEventSendD +elay/) { my $func = "X11::GUITest::$imported"; my $code = do { no strict 'refs'; \&{"$func"} }; my $delegate = sub { my( $self, $arg ) = @_; $code->($arg); }; # Install as mySendKeys etc: no strict 'refs'; *{"my$imported"} = $delegate; };
In reply to Re: Moose: Accessing subroutines in packages used by Moose class
by Corion
in thread Moose: Accessing subroutines in packages used by Moose class
by nysus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |