Thread Pendent zu require mit eigenem Namensraum (20 answers)
Opened by bianca at 2012-07-27 12:47

Linuxer
 2012-07-30 12:20
#160302 #160302
User since
2006-01-27
3875 Artikel
HausmeisterIn

user image
Kleine Ergänzung:

ein Tag aus %EXPORT_TAGS ist mit ":" einzubinden: use tools qw( :foo );
Und die pro Tag enthaltenen Namen müssen auch noch im @EXPORT_OK definiert sein (und könnten damit auch noch direkt benannt und eingebunden werden).

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

package utils;
use strict;
use warnings;
use feature     qw( say );

use Exporter    qw( import );

our @EXPORT_OK = qw(
    print_1
    print_2
);

our %EXPORT_TAGS = (
    foo => [ qw( print_1 ) ],
    bar => [ qw( print_2 ) ],
);



sub print_1 {
    say "1: ", @_;
}

sub print_2 {
    say "2: ", @_;
}

1;


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

#! /usr/bin/perl -I.
use strict;
use warnings;

use utils qw( :foo print_2 );

print_1 "Hallo Welt.";
print_2 "Wie geht's?";

__END__

Last edited: 2012-07-30 15:41:55 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Pendent zu require mit eigenem Namensraum