Change example with method ^name in it

'cause it's not specced ATM https://irclog.perlgeek.de/perl6/2016-12-20#i_13774824

Author: zoffixznet

doc/Language/operators.pod6

@@ -1238,9 +1238,9 @@ a single method named the same as C<$obj.^name> and that returns C<$obj>:
 
     say 42 but 'forty two'; # 'forty two'
 
-    my $s = 12 but class { method ^name ($) { 'warbles' } }.new;
-    say $s.warbles; # warbles.new
-    say $s + 42;    # 54
+    my $s = 12 but class Warbles { method hi { 'hello' } }.new;
+    say $s.Warbles.hi; # hello
+    say $s + 42;       # 54
 
 If methods of the same name are present already, the last mixed in role takes
 precedence. A list of methods can be provided in parentheses separated by