Select Code to Download

sub mksref { my $x = +(@_)[-1]; \$x }

sub mkcref (@) {
   my @closed = @_;
...
sub mkaref (@) {
   return [@_];
}

sub mkhref (%) {
    if ( @_%2 ) {
...
        return {@_};
    }
}

sub mkhref { {@_} }