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; } }