Lines Matching refs:pkg
10 my ($pkg, $ref, $type) = @_;
11 return $symcache{$pkg,$ref} if $symcache{$pkg,$ref};
14 foreach my $sym ( values %{$pkg."::"} ) {
15 return $symcache{$pkg,$ref} = \$sym
91 my $sym = findsym @lastattr{'pkg','ref'}
92 or die "Internal error: $lastattr{pkg} symbol went missing";
94 warn "Declaration of $name attribute in package $lastattr{pkg} may clash with future reserved word\n"
97 *{"$lastattr{pkg}::_ATTR_${_}_${name}"} = $lastattr{ref};
116 my ($pkg, $ref, @attrs) = @_;
137 %lastattr=(pkg=>$pkg,ref=>$ref,type=>$data);
141 my $handler = $pkg->can("_ATTR_${type}_${attr}");
143 my $decl = [$pkg, $ref, $attr, $data,
175 my ($pkg, $ref, $attr, $data, $raw, $handlerphase) = @$declaration;
180 my $sym = findsym($pkg, $ref);
183 my $evaled = !$raw && eval("package $pkg; no warnings;
188 $pkg->$handler($sym,