Select Code to Download

# A Perl 6 class

...

    method clear () { $.x = 0; $.y = 0; }
}

# A Perl 5 class

...
        $y[$$self] = 0; 
    }
}

# A Perl 5 class -- take 2

...

# still part of package Point outside the braces
# but @x and @y can't be seen from out here

# A Perl 5 class -- take 3

...
}

# Back to package Foo out here