Perl export to child modules

Question

I have this parent module MyApp.pm:

package MyApp;
use Moose;
use base 'Exporter';
our @EXPORT = qw(msg);
sub msg {
    print "Hello msg\n";
}
1;

which is inherited by this child module MyApp2.pm:

package MyApp2;
use Moose;
extends qw(MyApp);
1;

and when used in the App.cgi script like this:

#!/usr/bin/perl
use MyApp2;
msg();

I get error message:

Undefined subroutine &main::msg called at App.cgi line 3.

So the exported function does not work in the child class MyApp2 but works only if I use "use MyApp" instead of "use MyApp2". I assume the exported function should be accessible to the child modules also which is extending the parent class. What I am doing wrong.

Answer 1

Here is the solution I found for my request:

package MyApp;
use Moose;
use base 'Exporter';
our @EXPORT = qw(msg);

sub import {
my ($class, @args) = @_;
    my $caller = $class.'::';
    {
        no strict 'refs';
        @{$caller.'EXPORT'} = @EXPORT;
        foreach my $sub (@EXPORT) {
            next if (*{"$caller$sub"}{CODE});
            *{"$caller$sub"} = \*{$sub};
        }
    }
    goto &Exporter::import;
}

sub msg {
    print "Hello msg MyApp\n";
}
1;

The idea here is I export all the contents of the "@EXPORT" array into the child module, only add none existent subs so will not overwrite any methods in the child class.

In this example above, this exports from MyApp to the child MyApp2.

This works for my own needs.