sub header : lvalue {
    my ( $self, $h, $value ) = @_;

    if ( @_ == 1 ) {
        return $self->{header};
    }
    $self->{header}->{$h} = $value
      if defined $value;
    $self->{header}->{$h};
}