From c709f1dcbbc3f21d8aca2102fd74f9304753b775 Mon Sep 17 00:00:00 2001 From: Felix Ostmann Date: Tue, 6 Aug 2019 10:44:37 +0200 Subject: Object Model example mixed old/new code/comments --- perl6.html.markdown | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl6.html.markdown') diff --git a/perl6.html.markdown b/perl6.html.markdown index 6b0df0d4..1304869b 100644 --- a/perl6.html.markdown +++ b/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 -- cgit v1.2.3