mirror of
https://github.com/XAMPPRocky/tokei.git
synced 2026-05-28 00:20:57 +02:00
Alek Ratzloff
21f6fc0c11
* Add Perl6 rule Signed-off-by: Alek Ratzloff <alekratz@gmail.com> * Add Not Quite Perl rule Signed-off-by: Alek Ratzloff <alekratz@gmail.com> * Add Perl6 test Signed-off-by: Alek Ratzloff <alekratz@gmail.com> * Fix Perl6 test, oops Signed-off-by: Alek Ratzloff <alekratz@gmail.com> * Add Not Quite Perl test Signed-off-by: Alek Ratzloff <alekratz@gmail.com>
12 lines
224 B
Raku
12 lines
224 B
Raku
# 11 lines 5 code 4 comments 2 blanks
|
|
|
|
=begin pod
|
|
Defines a fun infix operator.
|
|
This was stolen from http://tpm2016.zoffix.com/#/14
|
|
=end pod
|
|
sub infix:<¯\(°_o)/¯> {
|
|
($^a, $^b).pick
|
|
}
|
|
|
|
say 'Coke' ¯\(°_o)/¯ 'Pepsi';
|