<commit_before>## $Id$

=head1 TITLE

Any - Perl 6 Any class

=head1 DESCRIPTION

This file implements the Any class.

=cut

.namespace [ 'Any' ]

.sub 'onload' :anon :init :load
    .local pmc p6meta
    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
    p6meta.'new_class'('Any', 'parent'=>'Perl6Object')
.end

.sub 'isa' :method
    .param pmc x
    $P0 = self.'HOW'()
    .return $P0.'isa'(x)
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
<commit_msg>[rakudo]: * Add Any.can().<commit_after>## $Id$

=head1 TITLE

Any - Perl 6 Any class

=head1 DESCRIPTION

This file implements the Any class.

=cut

.namespace [ 'Any' ]

.sub 'onload' :anon :init :load
    .local pmc p6meta
    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
    p6meta.'new_class'('Any', 'parent'=>'Perl6Object')
.end

.sub 'isa' :method
    .param pmc x
    $P0 = self.'HOW'()
    .return $P0.'isa'(x)
.end

.sub 'can' :method
    .param pmc x
    $P0 = self.'HOW'()
    .return $P0.'can'(x)
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:

{'fraction_non_alphanumeric': 0.17002629272567923, 'fraction_numerical': 0.028045574057843997, 'mean_word_length': 3.183150183150183, 'pattern_counts': {'":': 0, '<': 3, '<?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': '2346223', 'n_tokens_mistral': 493, 'n_tokens_neox': 472, 'n_words': 127}