Replaced erroneous use of .WHAT with .^name, also replaced concatenation of say's arguments with comma-separated list (currently better practice due to performance). Cleaned up minor whitespace thingies in the same examples.

Author: jani

cookbook/01strings/01-00introduction.pl

@@ -114,17 +114,17 @@ =head1 Assigning Strings
 Or a string object can be declared implicitly by assigning a string value to 
 a variable, in this case a scalar. 
 
-    my $scalar    = 'String';
-    say '$scalar is ' ~ $scalar.WHAT;   # $scalar is Str
+    my $scalar = 'String';
+    say '$scalar is ', $scalar.^name;   # $scalar is Str
 
 =end pod
 
-my Str $string =  'This is $string: a scalar holding a String';
-say $string ;
-say '$string is ' ~ $string.WHAT ;                 # Str 
-my  $scalar    =  'This is $scalar holding a String';
-say $scalar ; 
-say '$scalar is ' ~ $scalar.WHAT ;                 # Str 
+my Str $string = 'This is $string: a scalar holding a String';
+say $string;
+say '$string is ', $string.^name;                 # Str 
+my $scalar = 'This is $scalar holding a String';
+say $scalar; 
+say '$scalar is ', $scalar.^name;                 # Str 
 
 =begin pod 
 
@@ -133,19 +133,19 @@ =head1 Assigning Strings
 
 
     my $scalar = 1234;                      
-    say '$scalar is ' ~ $string.WHAT"   # $scalar is Int
+    say '$scalar is ', $string.^name   # $scalar is Int
 
 An object can be stringified, by using the ~ operator immediately
 prior to the variable's sigil
 
-    say '~$scalar is ' ~ (~$scalar).WHAT; # ~$scalar is Str 
+    say '~$scalar is ', (~$scalar).^name; # ~$scalar is Str 
 
 =end pod
 
 $scalar = 1234;
-say $scalar   ;
-say '$scalar is '  ~ $scalar.WHAT; 
-say '~$scalar is ' ~ (~$scalar).WHAT; 
+say $scalar;
+say '$scalar is ', $scalar.^name; 
+say '~$scalar is ', (~$scalar).^name; 
 
 =begin pod