Zoffix

sub error {
    my $self = shift;
    if ( @_ ) {
        $self->{ ERROR } = shift;
    }
    return $self->{ ERROR };
}

sub content {
    my $self = shift;
    if ( @_ ) {
        $self->{ CONTENT } = shift;
    }
    return $self->{ CONTENT };
}