The old grep/map/sort chain works unmodified, too, I just wanted to demonstrate the new pipeline operators. Actually, there are even some other ways too:
# Perl 5:
print join "...", map {...} sort {...} @array;
# Perl 6:
say (@array.sort:{...} ==> map {...}).join("...");
TIMTOWTDI :)
The accessors are especially useful for subclassing:
class Foo {
has $.x;
# Explicitly generate an accessor:
method x() is rw {
return new Proxy:
FETCH => {...},
STORE => {...};
}
}
class Foo::Bar isa Foo {
method do_sth {
...;
my $var = $.x;
# Although used as an variable, the *method* Foo.x is called.
# Foo::Bar does *not* directly access the variable.
}
}
Now, you may ask, "why is that useful?" -- In Perl 5, when one changed the internal representation of some data in the superclass, but fixed the public accessor methods so they translate between the old representation the user expects and the new one used internally, everything was fine. Except, when there was some subclass: The subclass would still directly access the internal representation, which would, of course, not work.
Now, with Perl 6, one may subclass freely without having to fear that internal changes of the superclass will affect the subclass. :)
Generally, the Perl 5 way works in Perl 6, too. But the new ways Perl 6 gives you are often shorter/clearer/more consice/more elegant/more efficient/whatever.
--Ingo |