<commit_before>=head1 TITLE

perl5.pir - A Perl 5 compatibility interface for Parrot.

=head2 Description

This file sets up something that will work with HLLCompiler and
allow us to eval Perl 5 code.

=head2 Functions

=over 4

=item onload()

Creates the compiler using a C<PCT::HLLCompiler> object.

=cut

.loadlib 'blizkost_group'

.namespace [ 'Perl5' ; 'Compiler' ]

.sub 'onload' :anon :load :init<commit_msg>Use the new (patch pending) interface to load libperl.so globally, fixes XS<commit_after>=head1 TITLE

perl5.pir - A Perl 5 compatibility interface for Parrot.

=head2 Description

This file sets up something that will work with HLLCompiler and
allow us to eval Perl 5 code.

=head2 Functions

=over 4

=item onload()

Creates the compiler using a C<PCT::HLLCompiler> object.

=cut

.namespace [ 'Perl5' ; 'Compiler' ]

.sub 'onload' :anon :load :init
    # XXX can I access the symbolic constants?
    $P0 = box 1
    $P1 = loadlib 'blizkost_group', $P0
{'fraction_non_alphanumeric': 0.08762886597938144, 'fraction_numerical': 0.020618556701030927, 'mean_word_length': 4.110526315789474, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '160508', 'n_tokens_mistral': 349, 'n_tokens_neox': 325, 'n_words': 130}