> still, if damian gets his way we'll no doubt be able to have
   > modules/filters that mean we can still use -> :) 

I *guarantee* it!

It will definitely be possible in Perl 6, because even with our primitive
earth technology we can do the reverse today:


        ###############################
        # in line DotsForArrows.pm:

        package DotsForArrows;
        use Filter::Simple;
        FILTER { s/\b\.(?=[a-z_\$({[])/->/gi };



        ###############################
        # then in your code:

        use DotsForArrows;

        package MyClass;

        sub new { bless [$_[1], 1..10], $_[0] }
        sub next { my ($self) = @_; return "next is: " . shift(@$self) . "\n" }

        package main;

        my ($str1, $str2) = ("a", "z");
        my $obj = MyClass.new($str1 . $str2);

        print $obj.next() for 1..10;

        print $obj.[0] . "\n";

        my $next = 'next';
        print $obj.$next;

        #etc.


I suppose you'll want me to put that on the CPAN now. ;-)

Damian


Reply via email to