sub error_excerpt
{
my ($self, $error_excerpt) = @_;
return defined($error_excerpt)?$self->{_error_excerpt}:"No Error Excerpt.";
}