Select Code to Download

  #constructor
sub new
{
...
    bless $self, $class;
    return $self;
}

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