#!/usr/bin/env /friends/.rakudobrew/bin/perl6 class M { has $!x; has $.y; method gsx($nx){ $!x=$nx; return $!x; } method sa($nx,$ny){ $!x=$nx; $.y=$ny; } }