<commit_before>class Whatever is also {
    method perl() {
        return '*';
    }
    method ACCEPTS(Any $topic) {
        return Bool::True;
    }
    method postcircumfix:<( )>(*@pos, *%named) {
        return -> $x { $x(|@pos, |%named) };
    }
}


# See src/classes/.pir for a description of the WhateverCodeX()
# function.  Essentially it does the equivalent of creating a
# WhateverCode closure.  Ideally we'd prefer
#    multi sub infix:<+>(Whatever $a, $b) {
#        WhateverCode(-> $_ { $_ + $b })
#    }
# but Rakudo doesn't support block coercion yet, so we have
# a helper function to build it for us.

multi sub infix:<+>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>($a, Whatever $b)
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>($a, Whatever $b)
    { WhateverCodeX('infix:+', $a, $b) }

multi sub infix:<->(Whatever $a, $b) is default 
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->($a, Whatever $b)
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->($a, Whatever $b)
    { WhateverCodeX('infix:-', $a, $b) }

multi sub infix:<*>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>($a, Whatever $b)
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>($a, Whatever $b)
    { WhateverCodeX('infix:*', $a, $b) }

multi sub infix:</>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>($a, Whatever $b)
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>($a, Whatever $b)
    { WhateverCodeX('infix:/', $a, $b) }

multi sub infix:<%>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>($a, Whatever $b)
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>($a, Whatever $b)
    { WhateverCodeX('infix:%', $a, $b) }

multi sub infix:<div>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>($a, Whatever $b)
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>($a, Whatever $b)
    { WhateverCodeX('infix:div', $a, $b) }

multi sub infix:<mod>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>($a, Whatever $b)
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>($a, Whatever $b)
    { WhateverCodeX('infix:mod', $a, $b) }

multi sub infix:<**>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>($a, Whatever $b)
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>($a, Whatever $b)
    { WhateverCodeX('infix:**', $a, $b) }

multi sub prefix:<->(Whatever $a)
    { WhateverCodeX('prefix:-', $a) }
multi sub prefix:<->(WhateverCode $a)
    { WhateverCodeX('prefix:-', $a) }

multi sub prefix:<~>(Whatever $a)
    { WhateverCodeX('prefix:~', $a) }
multi sub prefix:<~>(WhateverCode $a)
    { WhateverCodeX('prefix:~', $a) }

# vim: ft=perl6<commit_msg>Fix copy-pasto errors in Whatever.pm .<commit_after>class Whatever is also {
    method perl() {
        return '*';
    }
    method ACCEPTS(Any $topic) {
        return Bool::True;
    }
    method postcircumfix:<( )>(*@pos, *%named) {
        return -> $x { $x(|@pos, |%named) };
    }
}


# See src/classes/.pir for a description of the WhateverCodeX()
# function.  Essentially it does the equivalent of creating a
# WhateverCode closure.  Ideally we'd prefer
#    multi sub infix:<+>(Whatever $a, $b) {
#        WhateverCode(-> $_ { $_ + $b })
#    }
# but Rakudo doesn't support block coercion yet, so we have
# a helper function to build it for us.

multi sub infix:<+>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>($a, Whatever $b)
    { WhateverCodeX('infix:+', $a, $b) }
multi sub infix:<+>($a, WhateverCode $b)
    { WhateverCodeX('infix:+', $a, $b) }

multi sub infix:<->(Whatever $a, $b) is default 
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->($a, Whatever $b)
    { WhateverCodeX('infix:-', $a, $b) }
multi sub infix:<->($a, WhateverCode $b)
    { WhateverCodeX('infix:-', $a, $b) }

multi sub infix:<*>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>($a, Whatever $b)
    { WhateverCodeX('infix:*', $a, $b) }
multi sub infix:<*>($a, WhateverCode $b)
    { WhateverCodeX('infix:*', $a, $b) }

multi sub infix:</>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>($a, Whatever $b)
    { WhateverCodeX('infix:/', $a, $b) }
multi sub infix:</>($a, WhateverCode $b)
    { WhateverCodeX('infix:/', $a, $b) }

multi sub infix:<%>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>($a, Whatever $b)
    { WhateverCodeX('infix:%', $a, $b) }
multi sub infix:<%>($a, WhateverCode $b)
    { WhateverCodeX('infix:%', $a, $b) }

multi sub infix:<div>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>($a, Whatever $b)
    { WhateverCodeX('infix:div', $a, $b) }
multi sub infix:<div>($a, WhateverCode $b)
    { WhateverCodeX('infix:div', $a, $b) }

multi sub infix:<mod>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>($a, Whatever $b)
    { WhateverCodeX('infix:mod', $a, $b) }
multi sub infix:<mod>($a, WhateverCode $b)
    { WhateverCodeX('infix:mod', $a, $b) }

multi sub infix:<**>(Whatever $a, $b) is default 
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>(WhateverCode $a, $b) is default 
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>($a, Whatever $b)
    { WhateverCodeX('infix:**', $a, $b) }
multi sub infix:<**>($a, WhateverCode $b)
    { WhateverCodeX('infix:**', $a, $b) }

multi sub prefix:<->(Whatever $a)
    { WhateverCodeX('prefix:-', $a) }
multi sub prefix:<->(WhateverCode $a)
    { WhateverCodeX('prefix:-', $a) }

multi sub prefix:<~>(Whatever $a)
    { WhateverCodeX('prefix:~', $a) }
multi sub prefix:<~>(WhateverCode $a)
    { WhateverCodeX('prefix:~', $a) }

# vim: ft=perl6
{'fraction_non_alphanumeric': 0.22063343578778566, 'fraction_numerical': 0.00026727248429774154, 'mean_word_length': 3.9993319973279893, 'pattern_counts': {'":': 0, '<': 79, '<?xml version=': 0, '>': 83, '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': '4788485', 'n_tokens_mistral': 3031, 'n_tokens_neox': 2922, 'n_words': 766}