Lines Matching refs:attr

58 	    while (my($attr, $tieclass) = each %$mapping) {
61 		_usage_AH_ $class unless $attr =~ $qual_id
68 		$attr =~ s/__CALLER__/caller(1)/e;
69 		$attr = caller()."::".$attr unless $attr =~ /::/;
71 	            sub $attr : ATTR(VAR) {
118 		my ($attr, $data) = /^([a-z_]\w*)(?:[(](.*)[)])?$/is or next;
119 		if ($attr eq 'ATTR') {
141 			my $handler = $pkg->can("_ATTR_${type}_${attr}");
143 		        my $decl = [$pkg, $ref, $attr, $data,
175 	my ($pkg, $ref, $attr, $data, $raw, $handlerphase) = @$declaration;
179 	my $handler = "_ATTR_${type}_${attr}";
190 		       $attr,