mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-12-08 20:38:47 +00:00
7
samples/Perl 6/ContainsUnicode.pm
Normal file
7
samples/Perl 6/ContainsUnicode.pm
Normal file
@@ -0,0 +1,7 @@
|
||||
module ContainsUnicode {
|
||||
sub uc-and-join(*@things, :$separator = ', ') is export {
|
||||
@things».uc.join($separator)
|
||||
}
|
||||
}
|
||||
|
||||
# vim: ft=perl6
|
||||
Reference in New Issue
Block a user