is($point->x, 2, '... the x attribute was initialized correctly through the metaobject');
-ok exception {
+isnt( exception {
$point->x(42);
-}, '... cannot write to a read-only accessor';
+}, undef, '... cannot write to a read-only accessor' );
is($point->x, 2, '... the x attribute was not altered');
$point->clear();