-my $default_output_format = 'text';
-my $client_output_format = $default_output_format;
-
-sub set_output_format {
- my ($format) = @_;
-
- if (!defined($format)) {
- $client_output_format = $default_output_format;
- } else {
- $client_output_format = $format;
- }
-}
-
-sub get_output_format {
- return $client_output_format;
-}
-