Here are the first few lines of a class I've created:
package FFMech; $ENV{'DISPLAY'} = ':0.0'; use X11::GUITest qw/SendKeys FindWindowLike ClickWindow SetEventSendDe +lay/; use Moose; use Modern::Perl; use MooseX::NonMoose; extends 'WWW::Mechanize::Firefox';
I'd like to access the SendKeys subroutine from an object. To do so, I created a wrapper method to the SendKeys subroutine like so:
sub mySendKeys { my $self = shift; my $arg = shift; &X11::GUITest::SendKeys($arg); }
This worked fine. But now I'd like to use other subroutines from the the X11::GUITest module. Rather than create a new wrapper for each subroutine, I'm wondering if there might be a better approach. Thanks!
$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |