# testmon.pl, to test the modules in Monitor

use Monitor::Scalar;
use Monitor::Array;
use Monitor::Hash;

$x;
@y;

tie $x,'Monitor::Scalar',\0,'x';
tie @y,'Monitor::Array',[0,0],'y';
tie %z,'Monitor::Hash',{},'z';

$x = 5;
print $x, "\n";  # prints 5
$y[0] = $x;
$y[1] = 12;
$y[2] = 13;  
$z{'abc'} = 28;
@y = (1,2,8);  # causes execution error, due to lack of CLEAR()