Searched defs:tiex (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dassignwarn.t22 sub tiex { tie $_[0], 'main' } subroutine
33 { my $x; tiex $x if $tie; $x ++; ok ! uninitialized, "postinc$tie"; }
34 { my $x; tiex $x if $tie; $x --; ok ! uninitialized, "postdec$tie"; }
35 { my $x; tiex $x if $tie; ++ $x; ok ! uninitialized, "preinc$tie"; }
36 { my $x; tiex $x if $tie; -- $x; ok ! uninitialized, "predec$tie"; }
38 { my $x; tiex $x if $tie; $x **= 1; ok uninitialized, "**=$tie"; }
41 { my $x; tiex $x if $tie; $x += 1; ok ! uninitialized, "+=$tie"; }
42 { my $x; tiex $x if $tie; $x -= 1; ok ! uninitialized, "-=$tie"; }
45 { my $x; tiex $x if $tie; $x .= 1; ok ! uninitialized, ".=$tie"; }
47 { my $x; tiex
[all...]

Completed in 29 milliseconds