Lines Matching defs:padname

1129 		          # [seq, no cv, not format, padname]
1252             my $var = $self->padname($o->targ);
1568 	my ($st, undef, $padname) = @$a;
1569 	if ($st >= $seq && $padname->FLAGS & PADNAMEf_TYPED) {
1570 	    return $padname->SvSTASH->NAME;
1624 	my $var = $self->padname($op->targ);
1640     my($op, $cx, $text, $padname, $forbid_parens) = @_;
1651 	# Check $padname->FLAGS for statehood, rather than $op->private,
1654 	    $self->keyword($padname->FLAGS & SVpad_STATE ? "state" : "my");
1655 	if ($padname->FLAGS & PADNAMEf_TYPED) {
1656 	    $my .= ' ' . $padname->SvSTASH->NAME;
2526         my $var = $_[0]->maybe_my($_[1], $_[2], $_[0]->padname($targ),
2801         my $var = $self->maybe_my($op, $cx, $self->padname($targ),
3153     my $var = $self->maybe_my($op, $cx, $self->padname($targ),
3458 	my $var = $self->padname($op->targ);
3761             my $padname = $self->padname_sv($lop->targ);
3762             my $thisclass = ($padname->FLAGS & PADNAMEf_TYPED)
3763                                 ? $padname->SvSTASH->NAME : 'main';
3799         push @varnames, $self->padname($padop->targ);
3880 	    my $padname = $self->padname_sv($lop->targ);
3881 	    if ($padname->FLAGS & PADNAMEf_TYPED) {
3882 		$newtype = $padname->SvSTASH->NAME;
4188     my $catchvar = $self->padname($catch->targ);
4278 sub padname {
4287     return substr($self->padname($op->targ), 1); # skip $/@/%
4294     return $self->maybe_my($op, $cx, $self->padname($targ),
4354     my $name = $self->padname($op->targ);
4365     my $name = $self->padname($op->targ);
4524     my ($array, $left, $padname, $allow_arrow) = @_;
4526     if ($array->name eq $padname) {
4587     my ($op, $cx, $left, $right, $padname) = @_;
4592     unless ($array->name eq $padname) { # Maybe this has been fixed	
4596 	    ($array, $left, $padname, 1)) {
4657         $lhs = $self->padname($op->targ);
4814             $text .= '$' . substr($self->padname(shift @items), 1);
4828                 $text .= $self->padname(shift @items);
4874             $text .= $self->padname(shift @items);
4910     my ($op, $cx, $left, $right, $regname, $padname) = @_;
4922     $array = $self->elem_or_slice_array_name($array,$left,$padname,0);
5266 	    my $padname = $padlist->ARRAYelt(0)->ARRAYelt($padoff);
5267 	    my $protocv = $padname->FLAGS & SVpad_STATE
5269 		: $padname->PROTOCV;
6145 	return $self->maybe_parens($self->padname($targ) . " =~ $ret",
6412 	$var = $self->padname($targ);
6520                 $ary = $self->padname($op->pmreplroot);
6572 	$var = $self->padname($targ);
6725     my $var = $self->padname($op->targ);