use Test::More qw(no_plan); use strict; use warnings; use autobox::Core; ok 'foo'->m(qr/o+/); ok ! 'foo'->m(qr/x+/);