view release on metacpan or  search on metacpan

mason/href  view on Meta::CPAN

<a href="<% $uri %>">\
% if ($escape) {
<% $ARGS{text} | h %>\
% } else {
<% $text %>\
% }
</a>\
<%args>
$text
$escape => 1
</%args>

<%init>
my %args = %ARGS;
delete $args{text};
delete $args{escape};

my $uri = uri(%args);
</%init>