use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
bit_get
bit_set
bit_clr
bit_bin
bit_count
bit_mask
bit_tog
bit_toggle
bit_on
bit_off
);
our %EXPORT_TAGS;
$EXPORT_TAGS{all} = [@EXPORT_OK];
####
our @EXPORT_OK = (@wpi_c_functions, @wpi_perl_functions);
our %EXPORT_TAGS;
$EXPORT_TAGS{wiringPi} = [@wpi_c_functions];
$EXPORT_TAGS{perl} = [@wpi_perl_functions];
$EXPORT_TAGS{all} = [@wpi_c_functions, @wpi_perl_functions];
####
our @EXPORT = qw(imgcopyright);
####
sub import {
my ($class, %opts) = @_;
$self = __PACKAGE__->_new(%opts);
my $sub_name = $opts{sub_name} ? $opts{sub_name} : 'plugins';
{
no warnings 'redefine';
no strict 'refs';
my $pkg = (caller)[0];
*{"$pkg\::$sub_name"} = \&_plugins;
}
}