Select Code to Download

# Perl 5

...

package SomeClass;
sub given_name : Property;

# Perl 6

class SomeClass {
    has $.given_name is public;
}

# Perl 5

...
$object->given_name = 5;

print $object->given_name, "\n";

# Perl 6

...
$object.given_name = 5;

print $object.given_name, "\n";