use strict;
use warnings;
use Test::More;

# Pick one:
#use Foo qw/subA subB Abus Bbus/;
 use Foo ':all';

is subA('abra-cadabra'), 'xyrx-zxdxyrx';
is subB('i like stuff'), 'q lqse stuff';
is Abus('abra-cadabra'), 'xyrx-zxdxyrx';
is Bbus('i like stuff'), 'q lqse stuff';

done_testing;