Useless use of constant value

[ToddAndMargo via perl6-users]

Hi All,

C:\NtUtil>perl6 -v
This is Rakudo Star version 2019.03.1 built on MoarVM
version 2019.03 implementing Perl 6.d for Windows


What am I doing wrong here?

<WinVer.pm6>
unit module WinVer;
# WinVer.pm6

sub WinVer() is export( :WinVer ) {
#`{
      Reference: https://www.gaijin.at/en/infos/windows-version-numbers

      Return a string with the name of the Windows version:

}

   my %Ver = (
      "5.10"       => "Windows XP",
      "6.10"       => "Windows 7",
      "6.20"       => "Windows 8",
      "6.30"       => "Windows 8.1",
      "10.0.10240" => "Windows 10-1507",
      "10.0.10586" => "Windows 10-1511",
      "10.0.14393" => "Windows 10-1607",
      "10.0.16299" => "Windows 10-1709",
      "10.0.17134" => "Windows 10-1803",
      "10.0.17763" => "Windows 10-1607",
      "10.0.18362" => "Windows 10-1903",
      "10.0.18363" => "Windows 10-1909" );

   my Str $RtnStr;
   my Str $Version;

   say %Ver;
   # $RtnStr = qx ( ver );
   # for %Ver -> $Key  {
   #    say $Key;
   # }

}
</WinVer.pm6>


C:\NtUtil>perl6 -e "use lib 'C:\NtUtil'; use WinVer :WinVer; WinVer;"

WARNINGS for -e:
Useless use of constant value WinVer in sink context (line 1)