package Bogus; use strict; use X11::GUITest qw(SendKeys); # and whatever other functions #### package MyBogus; use Moose; use MooseX::NonMoose; extends 'Bogus'; around ...; #### package X11::GUITest::Moosified; use Moose; use MooseX::NonMoose; extends 'X11::GUITest'; around ['SendKeys'] => sub { ... };