package LinkToMason;
use strict;

use CGI();
use URI::Escape();

sub escape_url {
    my( $class, $string ) = @_;
    # Escape using default except don't escape '{' nor '}':
    return URI::Escape::uri_escape( $string, "^A-Za-z0-9\\-_.!~*'(){}" );
}

sub as_url {
    my( $class, $page, $rel, %args ) = @_;
    if(  $page !~ m(^/)  ) {
        require Carp;
        Carp::croak( "..." )
            if  ! $rel;
        $rel =~ s{/[^/]*$}{};
        $page = "$rel/$page";
    }
    return $page
        if  ! %args;
    return "$page?" . join ';', map {
        join '=', map $class->escape_url($_), $_, $args{$_}
    } sort keys %args;
}

sub html_link {
    my( $class, $title, $page, $args, $attrs, $rel ) = @_;
    $args   ||= { };
    $attrs  ||= { };

    if(  ref $title  ) {
        $title = $$title;                   # \ '<bold>Real</bold> HTML'
    } else {
        $title = CGI->escapeHTML( $title ); # Non-HTML string
    }

    my $url = $class->as_url( $page, $rel, %$args );

    return CGI->a( { href => $url, %$attrs }, $title );
}

1;