<%doc>

=head2 mplink

This creates an <a href="... to a command in the Maypole app by
catenating the base URL, table, command, and any arguments.

Note that the format of these links should match that parsed by the
C<parse_path> method found somewhere in your Maypole hierarchy (e.g. in
C<MasonX::Maypole>). 

p.s. This is called C<mplink> because it's reasonably
likely that people will already have their own link-generating
component called C<link> in a shared component root.

=cut

</%doc>
<%args>
    $base
    $table
    $command
    $additional => undef
    $label
</%args>
<a href="<% $path %>.html"><% $label %></a>\
<%init>
    my $path;
    for ( $base, $table, $command, $additional ) {
        $path .= "/$_" if defined $_;
    }
</%init>