7 caller - inherit pragmatic attributes from the context of the caller
11 use caller qw(encoding);
15 This pragma allows a module to inherit some attributes from the
16 context which loaded it.
18 Inheriting attributes takes place at compile time; this means
19 only attributes that are visible in the calling context at compile
20 time will be propagated.
22 Currently, the only supported attribute is C<encoding>.
28 Indicates that the character set encoding of the caller's context
29 must be inherited. This can be used to inherit the C<use utf8>
30 setting in the calling context.
37 # only HINT_UTF8 supported for now
43 for my $s (@_) { $bits |= $bitmask{$s} || 0; };
50 if (@cxt and $cxt[7]) { # was our parent require-d?
51 $^H |= bits(@_) & $cxt[8];