%Export warning?

[xiaoyafeng]

The built-in Exporter module is hard to use. I prefer Perl6::Export to do this job.

But the problem which is annoying me is it conflict with use strict, script would complain

package Win32::ExcelSimple;
use Perl6::Export;
use strict;
use warnings;
.......
......

sub qux is export(:MANDATORY) {
                print "quuuuuuuuux!";

}


__OUTPUT__

C:\strawberry\perl\site\lib\Win32>perl -c C:\strawberry\perl\site\lib\
+Win32\Exce
lSimple.pm
Variable "%EXPORT" is not imported at C:\strawberry\perl\site\lib\Win3
+2\ExcelSim
ple.pm line 78.
Variable "%EXPORT_TAGS" is not imported at C:\strawberry\perl\site\lib
+\Win32\Exc
elSimple.pm line 78.
Global symbol "@EXPORT_OK" requires explicit package name at C:\strawb
+erry\perl\
site\lib\Win32\ExcelSimple.pm line 78.
Global symbol "%EXPORT" requires explicit package name at C:\strawberr
+y\perl\sit
e\lib\Win32\ExcelSimple.pm line 78.
Global symbol "%EXPORT_TAGS" requires explicit package name at C:\stra
+wberry\per
l\site\lib\Win32\ExcelSimple.pm line 78.
BEGIN not safe after errors--compilation aborted at C:\strawberry\perl
+\site\lib\
Win32\ExcelSimple.pm line 78.

Any helps?

UPDATE: s/hardly/hard/ Thanks to Anonymous monk ;)

[Anonymous Monk]

This could be considered a bug, Bug #30245 for Perl6-Export: compilation fails if Exporter's variables are not already scoped

It seems you need to add

our (@EXPORT, %EXPORT, @EXPORT_OK, %EXPORT_TAGS);

I would switch to Perl6::Export::Attrs or Exporter::NoWork, as they're not implemented using filters, and are generally safe to use (Categorized Damian Modules)

module is hardly to use

Adverb, Will Robinson! Use a verb (hard) instead :)

[Khen1950fx]

This probably isn't any help, but I ran it through B::Deparse and went with this:

package Win32::ExcelSimple;

sub BEGIN {
    require Perl6::Export;
    do {
        'Perl6::Export'->import(':DEFAULT');
    };
}

sub _import_2763e65d482f2fbdacbc4240619d518b {

}
use base ('Exporter');

sub import {
    my @exports;
    for ( my $i = 1 ; $i < @_ ; ++$i ) {
        foreach $_ ( $_[$i] ) {
            if (    not ref $_
                and /^[:\$&%\@]?(\w+)$/
                and exists $EXPORT{$1} || exists $EXPORT_TAGS{$1} )
            {
                push @exports, splice( @_, $i, 1 );
                --$i;
            }
        }
    }
    @exports = ':DEFAULT' unless @exports;
    'foo'->export_to_level( 1, $_[0], ':MANDATORY', @exports );
    goto \&_import_2763e65d482f2fbdacbc4240619d518b;
}

sub BEGIN {
    $EXPORT_TAGS{'MANDATORY'} ||= [];
}

sub BEGIN {
    push @EXPORT_OK, 'bar';
    $EXPORT{'bar'} = 1;
    push @{ $EXPORT_TAGS{$_}; }, 'bar' foreach ( 'ALL', () );
}

sub bar (:DEFAULT) {
    print 'phooey!';
}

print &bar, "\n";