@EXPORT advice needed 1

[Xaqte]

I've got a package that incorporates validation.

I made it an easy switch, so you can turn it on and off via:

use FieldMap validate => 1;

This is done via the following:

my $VALIDATE = 0;
my $VALIDATE_MISSING = 1;

sub import {
    my( $pkg, %params ) = @_;
    return unless %params;
    if ( exists $params{validate} ) {
        $VALIDATE = $params{validate};
    }
    if ( exists $params{validate_missing} ) {
        $VALIDATE_MISSING = $params{validate_missing};
    }
}

Now, thats all working good...

However I need to export a sub, so they don't have to call FieldMap::Method().

Now I understand I have to use the Exporter and populate @EXPORT, but I feel like my import routine is inhibiting this.

Thoughts? Suggestions?

 

[max1x]

do u mean ur trying to export a method from the package by default, something like @EXPORT_OK = (method)? The following will help immensly.

http://www.perlmonks.org/?node_id=102347

-- Look at the note updates on Re: Simple Module Tutorial
by johnnywang (Priest) on Aug 09, 2004 at 22:58 UTC

 

[KevinADC]

I don't see how the code you posted could interfer with exporting a function/method. Maybe posting more of your code will help clarify.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Xaqte]

Maybe I'm misunderstanding things... or I wasn't more specific in my question.

Currently, I have a function in my class that has to be called like so:

FieldMap::STATIC();

I would like to use:

STATIC();

I understand the normal way of doing this is like this:

use FieldMap qw(STATIC);

Is there a way to use this STATIC function without declaring it in the use statement?

 

[KevinADC]

Yes. In the module, @EXPORT will export anything you want it to by default without having to explictly import it from the calling script. @EXPORT_OK is where you list othe things that can be optionally imported by the calling script.

http://perldoc.perl.org/perlmod.html

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Xaqte]

After my package declaration, strict and warnings... I have this:

use Exporter;
use vars qw(@ISA @EXPORT);
@ISA         = qw(Exporter);
@EXPORT      = qw(STATIC);

In the script using the package, I have:

use FieldMap;

STATIC('foo');

I get the following error:

Undefined subroutine &main::STATIC

Any ideas?

 

[KevinADC]

change:

use vars qw(@ISA @EXPORT);

change to:

our qw(@ISA @EXPORT);

See if that helps.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Xaqte]

Thanks Kevin!

However, that gave me a syntax error...

So, I tried:

require Exporter;
our @ISA         = qw(Exporter);
our @EXPORT      = qw(STATIC);

and I still get the same error:

Undefined subroutine &main::STATIC

 

[KevinADC]

Sorry, this line:

our qw(@ISA @EXPORT);

should be:

our(@ISA, @EXPORT);

If you still get the error I'm stumped.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Xaqte]

You were right Kevin, however... I had to modify my import (from my first post):

sub import {
    my( $pkg, %params ) = @_;
    return unless %params;
    if ( exists $params{validate} ) {
        $VALIDATE = $params{validate};
    }
    if ( exists $params{validate_missing} ) {
        $VALIDATE_MISSING = $params{validate_missing};
    }
    $pkg->export_to_level(1);
}

One note of this though...

I don't know how export_to_level is working with just one param. If someone can explain this, it would be great!

 

[max1x]

I don't know what $pkg->export_to_level(1) does; will research that, but I did not see your package being closed by a tailing 1;, which would mean that perl can load your package successfully.

 

[Xaqte]

It is closed by a tailing 1;

I just don't have it shown here.

 

[KevinADC]

There is no way to tell you anything about export_to_level() without seeing the code.

------------------------------------------
- Kevin, perl coder unexceptional!