Select Code to Download

sub new
{
    my ($class) = @_;
...
    bless $self, $class;
    return  $self;
}

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