Lines Matching refs:deref
743 package deref;
747 sub deref {
750 bless $self, 'deref::dummy'; # Disable overloading of %{}
755 sub hderef {shift->deref('h')}
756 sub aderef {shift->deref('a')}
757 sub cderef {shift->deref('c')}
758 sub gderef {shift->deref('g')}
759 sub sderef {shift->deref('s')}
762 my $deref = bless { h => { foo => 5 , fake => 23 },
767 }, 'deref';
769 my @cont = sort %$deref;
776 my @keys = sort keys %$deref;
778 my @val = sort values %$deref;
780 test $deref->{foo}, 5; # 181
781 test defined $deref->{bar}, ''; # 182
784 push @keys, $key while $key = each %$deref;
787 test exists $deref->{bar}, ''; # 184
788 test exists $deref->{foo}, 1; # 185
790 test $deref->(5), 39; # 186
791 test &$deref(6), 40; # 187
792 sub xxx_goto { goto &$deref }
795 }, 'deref';
800 test $$deref, 123; # 190
805 test "@$deref", '11 12 13'; # 192
806 test $#$deref, '2'; # 193
807 my $l = @$deref;
809 test $deref->[2], '13'; # 195
810 $l = pop @$deref;
813 test $deref->[$l], '12'; # 197
815 my $double = bless { h => $deref,
816 }, 'deref';