Attribute-Util
view release on metacpan or search on metacpan
lib/Attribute/Method.pm view on Meta::CPAN
101112131415161718192021222324252627282930my
$dp
= Attribute::Method::_Deparse->new(
'-l'
);
my
$dppack
;
my
%sigil2ref
= (
'$'
=> \
undef
,
'@'
=> [],
'%'
=> {},
);
sub
import
{
my
(
$class
,
@vars
) =
@_
;
my
$pkg
=
caller
();
push
@vars
,
'$self'
;
for
my
$var
(
@vars
) {
my
$sigil
=
substr
(
$var
, 0, 1,
''
);
no
strict
'refs'
;
*{
$pkg
.
'::'
.
$var
} =
$sigil2ref
{
$sigil
};
}
}
sub
UNIVERSAL::Method : ATTR(RAWDATA) {
my
(
$pkg
,
$sym
,
$ref
,
undef
,
$args
) =
@_
;
( run in 0.284 second using v1.01-cache-2.11-cpan-496ff517765 )