Lines Matching refs:watch
31 my $res = watch { cast @a, $wiz } { }, 'cast on tied array';
34 watch { $a[3] = 13 } { copy => 1 }, 'tied array store';
36 my $s = watch { $a[3] } { copy => 1 }, 'tied array fetch';
39 $s = watch { exists $a[3] } { copy => 1 }, 'tied array exists';
42 watch { undef @a } { }, 'tied array undef';
65 my $res = watch { cast %h, $wiz } { }, 'cast on tied hash';
68 watch { $h{b} = 7 } { copy => 1 }, 'tied hash store';
70 my $s = watch { $h{c} } { copy => 1 }, 'tied hash fetch';
73 $s = watch { exists $h{a} } { copy => 1 }, 'tied hash exists';
76 $s = watch { delete $h{b} } { copy => 1 }, 'tied hash delete';
79 watch { my ($k, $v) = each %h } { copy => 1 }, 'tied hash each';
81 my @k = watch { keys %h } { }, 'tied hash keys';
84 my @v = watch { values %h } { copy => 2 }, 'tied hash values';
87 watch { undef %h } { }, 'tied hash undef';