Select Code to Download

sub get_function {
    my $self     = shift;
...

    return $result;
}

$code .= join ', ',
             map { local $_ = $_; s/(['\\])/\\$1/g; "\'$_\'" }
                 @arguments;