kobame kobame - 3 months ago 13
Perl Question

How to "use" multiple modules with one "use"?

I want use some packages and some pragmas in all my programs, like:

use 5.014;
use warnings;
use autodie;
use My::ModuleA::Something;
use ModuleB qw(Func1 Func2);


I don't want repeat myself in every module, so looking for a way how to make one package e.g.
My::Common
what will contain the above packages and in my programs do only:

use My::Common;
say Func1("hello"); #say enabled and Func1 imported in the My::Common


how to achieve this?

The was read
preldoc -f use
and
perldoc perlmodlib
so i think I must "somewhat" to do this with BEGIN plus require&import, but absolutely don't know how.




UPDATE: I'm already tried the basic things.

With
require
- my prg.pl program.

require 'mymods.pl';
$var = "hello";
croak "$var\n";


mymods.pl contain

use strict;
use feature 'say';
use Carp qw(carp croak cluck);
1;


DOES NOT WORKS. Got error:

$ perl prg.pl
String found where operator expected at prg.pl line 3, near "croak "$var\n""
(Do you need to predeclare croak?)
syntax error at prg.pl line 3, near "croak "$var\n""
Execution of prg.pl aborted due to compilation errors.





with "use My":

use My;
$var = "hello";
croak "$var\n";


my My.pm

package My;
use strict;
use feature 'say';
use Carp qw(carp croak cluck);
1;


DOES NOT WORKS either. Got the same error.




Any working idea?

Answer

I'd go with this:

package My::Common;
use 5.14.0;
use strict;
use warnings;
use autodie;
use Carp qw(carp croak cluck);

sub import {
    my $caller = caller;
    feature->import(':5.14');
    # feature->import('say');
    strict->import;
    warnings->import;
    ## autodie->import; # <-- Won't affect the caller side - see my edit.
    {
        no strict 'refs';
        for my $method (qw/carp croak cluck/) {
            *{"$caller\::$method"} = __PACKAGE__->can($method);
        }
    }
}

1;

Please correct me if I'm wrong, or there's a better way.


EDIT:

Sorry, I was wrong in using autodie->import...

This one should work, but it assumes that you always call My::Common from the main package:

package My::Common;
# ...
sub import {
    # ...
    strict->import;
    warnings->import;
    {
        package main;
        autodie->import;
    }
    # ...
}

So, of course, it's much safer and simpler to add a use autodie; to each script:

use My::Common;
use autodie;
# ...