| … | |
… | |
| 586 | sub add_core_support { |
586 | sub add_core_support { |
| 587 | my ($self) = @_; |
587 | my ($self) = @_; |
| 588 | |
588 | |
| 589 | $self->add_eval ('my $v; open my $fh, "<", \$v'); |
589 | $self->add_eval ('my $v; open my $fh, "<", \$v'); |
| 590 | $self->add_eval ('my $x = chr 1234; "\u$x\U$x\l$x\L$x"; $x =~ /\d|\w|\s|\b|\R|\h|\v|$x/i'); |
590 | $self->add_eval ('my $x = chr 1234; "\u$x\U$x\l$x\L$x"; $x =~ /\d|\w|\s|\b|\R|\h|\v|$x/i'); |
| 591 | $self->add_eval ('split " ", chr 1234'); |
591 | $self->add_eval ('split " ", chr 1234'); # usually covered by the regex above |
| 592 | $self->add_eval ('/\x{1234}(?<a>)\g{a}/') if $] >= 5.010; |
592 | $self->add_eval ('/\x{1234}(?<a>)\g{a}/') if $] >= 5.010; # usually covered by the regex above |
| 593 | } |
593 | } |
| 594 | |
594 | |
| 595 | =item $extractor->add_unicore |
595 | =item $extractor->add_unicore |
| 596 | |
596 | |
| 597 | Adds (hopefully) all files form the unicore database that will ever be |
597 | Adds (hopefully) all files form the unicore database that will ever be |
