throws_ok {
$db->[-6] = 'whoops!';
-} qr/Modification of non-creatable array value attempted, subscript -6/, "Correct error thrown";
+} qr/Modification of non-creatable array value attempted, subscript -6/,
+ "Correct error thrown when attempting to modify a non-creatable array value";
my $popped = $db->pop;
is( $db->length, 4, "... and we have four after popping" );