view release on metacpan or  search on metacpan

lib/Ambrosia/Context.pm  view on Meta::CPAN

        };
}

sub error
{
    my $self = shift;
    $self->__error = join( '; ', @_ ) if @_;
    return $self->__error;
}

sub backup_uri
{
    my $self = shift;
    $self->host_path . '?action=' . $self->action . '&' . join '&', map {$_ . '=' . $self->param($_) } grep {defined $_} @{$self->param()};
}

1;

__END__

=head1 NAME