monitor_demo.pl

来自「perl learn perl by examples」· PL 代码 · 共 9 行

use Monitor;

monitor(\$x, "x");
$x = 10;
$x += 30;
unmonitor(\$x);

print "Value after unmonitor: $x \n"; # Should print 40