Change your code to:

        if (defined &$token)
        {
            no strict 'refs';
            &$token( $self, $params{$token} );
        }
[download]

There is also a trick for doing this without the no strict 'refs' part (that was posted here recently), but I didn't memorize that as I figured the inconsistancy would be fixed one way or another at some point and I don't mind very small patches of no strict when needed.

Updated slightly. chromatic's suggestion is better.

        - tye (but my friends call me "Tye")