RosettaCodeData/Task/Introspection/Perl-6/introspection.pl6
2018-06-22 20:57:24 +00:00

9 lines
273 B
Raku

use v6; # require Perl 6
my $bloop = -123;
if MY::{'$bloop'}.defined and CORE::{'&abs'}.defined { say abs $bloop }
my @ints = ($_ when Int for PROCESS::.values);
say "Number of PROCESS vars of type Int: ", +@ints;
say "PROCESS vars of type Int add up to ", [+] @ints;