Package exporter not working ?

[1DMF]

Hi,

Any idea why this export isn't working in this code?

package Utils;

# Invoke Exporter
use Exporter;

# Set Variables
our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 
    
    'SMTP' => [ qw(SMTP_DOMAIN) ],
    
    'RAG' => [ qw(RAG_RATING RAG_COLORS) ], 
    
    'INPUT' => [ qw(cleanInput buildUPD buildADD) ],   
    
);

our @EXPORT = qw( ISDate UKDate setSPArgs );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'SMTP'} }, @{ $EXPORT_TAGS{'RAG'} }, @{ $EXPORT_TAGS{'INPUT'} } );

sub import {
    push(@_, qw/ ISDate UKDate setSPArgs /); 
    goto &Exporter::import;
}

The default packages I want exporting work (ISDate UKDate setSPArgs ) but if I try to use the module with only a specific export...

use Utils qw(INPUT);

it errors saying 'INPUT is not exported'.

The override I've tried to put in to ensure some subs are always exported seems to have broken the ability to select what gets exported?

You help is appreciated

Thanks,
1DMF

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads

 

[1DMF]

it's ok, I was being dumb , missed out the colon!

use Utils qw(:INPUT);

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"

Free Dance Music Downloads