view release on metacpan or  search on metacpan

t/qr_combine.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

use PPR::X;
use re 'eval';
use warnings FATAL => 'regexp';

sub lives_ok(&;$) {
    if ($] >= 5.018 && $] <= 5.030) {
        pass "SKIP: $_[1]  (known regex bug in Perl $])";
        return;
    }

    eval { $_[0]->() };
    if (!$@) {
        pass $_[1];
    }
    else {