Exporter::All

All.pm

package Exporter::All;
use strict;
use warnings;

sub import {
    my $class  = shift;
    my $caller = caller;

    {
        no strict 'refs';
        my $symbol_table = \%{"${caller}::"};
        my @methods =
            grep { defined(*{$symbol_table->{$_}}{CODE}) }
            (keys %$symbol_table);
        ${"${caller}::EXPORT_TAGS"}{all} = \@methods;
        @{"${caller}::EXPORT_OK"} = @methods;
    }
}

1;

example.pl

use Example qw/:all/;

print foo(); # it is print foo
print bar(); # it is print bar
print buz(); # it is print buz

Example.pm

use strict;
use warnings;

use Exporter::All;
use Exporter::Lite; # or use parent 'Exporter';

sub foo { 'foo' }
sub bar { 'bar' }
sub buz { 'buz' }

1;

All Lite!(all right!)