use Regexp::Assemble;
my $fixed = 'The scalar remains the same';
$_ = $fixed;
*/
$ra = new Regexp_Assemble();
is_deeply($ra->__mbegin, [], 'mbegin is [] on non-tracked R::A object');
is_deeply($ra->__mend, [], 'mend is [] on non-tracked R::A object');
$re = new Regexp_Assemble();
$re->add('cat')->add('dog');
$regexp = $re->re();
ok($re->match('cat'), 'match without tracking');
ok(!$re->match('eagle'), 'match fail without tracking');
$re = new Regexp_Assemble();
$re->track(1)->add('dog');
ok($re->match('dog'), 're pattern-0 dog match');
is($re->source(0), 'dog', 'source is dog');
$re = new Regexp_Assemble(['track' => 1]);
$re->add('dog', 'dogged', 'fish', 'fetish', 'flash', 'fresh');
$re->add('foolish-\\d+');
ok($re->match('dog'), 're pattern-1 dog match');
// SKIP: {
// skip( "matched() is not implemented in this version of perl ($])", 1 ) if $PERL_VERSION_TOO_LOW;
is($re->matched, 'dog', 're pattern-1 dog matched');
// }
ok($re->match('dogged'), 're pattern-1 dogged match');
// SKIP: {
// skip( "matched() is not implemented in this version of perl ($])", 1 ) if $PERL_VERSION_TOO_LOW;
is($re->matched, 'dogged', 're pattern-1 dogged matched');
// }