![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Since most of the MIME-tools modules ``use'' it by name, this module is really not subclassable.
# Get current debugging flag: $current = config MIME::ToolUtils 'DEBUGGING'; # Invert it: config MIME::ToolUtils DEBUGGING => !$current;
Note: as you can see, I like the `arrow' syntax when setting values.
The complete list of configuration variables is listed below. They are all-uppercase, possibly with underscores. To get a list of all valid config variables in your program, and output their current values, you can say:
foreach $var (sort (config MIME::ToolUtils)) { print "MIME config $var = ", (config MIME::ToolUtils $var), "\n"; }
Note that some of these variables may have nice printed representations, while others may not.
Rationale: I wanted access to the configuration to be done via some kind of
controllable public interface, in case ``setting a config variable''
involved making a subroutine call. This approach is an attempt to do so
while preventing an explosion of lots of little methods, many of which will
do nothing more than set an entry in the internal %CONFIG
hash. I suppose a tied hash would have been slicker.
You should be aware that auto-synching the headers can slow down the printing of messages.
tmpnam()
plus
unlink().
Probably only works on Unix-like systems, but is
very straightforward. Depends on POSIX::tmpnam() and on the
autodelete-on-unlink behavior.
The default setting (if you never invoke this method) is "OPENDUP".
get()
method of MIME::Head:
config MIME::ToolUtils EMULATE_VERSION => 1.0;
The value should be '1' or '1.0'. To reliably turn off emulation, set it to undef.
config MIME::ToolUtils VERSION => 1.0;
Please notice that as of 3.x, this happens to be the same as the $MIME::ToolUtils::VERSION: however, this was not always the case, and someday may not be the case again.
All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Note: this file is used to set the version of the entire MIME-tools distribution.
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>