Merge pull request #3594 from Sadrak/master

[perl6/en] Object Model example mixed old/new code/comments

perl6.html.markdown

@@ -885,7 +885,7 @@ say_dyn();      #=> 1 100 We changed the value of $*dyn_scoped_2 in
 
 class Human {
     has Str $.name;           # `$.name` is immutable but with an accessor method.
-    has Str $.bcountry;       # Use `$!bplace` to modify it inside the class.
+    has Str $.bcountry;       # Use `$!bcountry` to modify it inside the class.
 	has Str $.ccountry is rw; # This attribute can be modified from outside.
 	has Int $!age = 0;        # A private attribute with default value.
 
@@ -911,12 +911,12 @@ class Human {
   	}
 };
 
-## Create a new instance of Human class with $.attrib set to 5.
+## Create a new instance of Human class.
 ## Note: you can't set private-attribute from here (more later on).
 my $person1 = Human.new(
 	name => "Jord",
-	bcountry = "Iceland",
-	ccountry => "Iceland"
+	bcountry = "Togo",
+	ccountry => "Togo"
 );
 
 say $person1.name;     #=> Jord