sub double_dispatch {
    my $self = shift;
    my $arg = shift;

    $arg->method($self,
                 args => [@_]);
}

##</code><code>##

sub double_dispatch {
>>>>my $self = shift;
>>>>my $arg = shift;

>>>>$arg->method($self,
>>>>             args => [@_]);
}