package Error; sub clear { my ($self) = @_; $self->{ERRORS} = undef; } # rest of Error module