Pod::Perldoc::GetOptsOO − Customized option parser for Pod::Perldoc
use
Pod::Perldoc::GetOptsOO ();
Pod::Perldoc::GetOptsOO::getopts( $obj, \@args, $truth )
or die "wrong usage";
Implements a customized option parser used for Pod::Perldoc.
Rather like
Getopt::Std’s getopts:
Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV,
$truth)
Given −n, if there’s a opt_n_with, it’ll
call $object−>opt_n_with(
ARGUMENT ) (e.g., "−n foo" =>
$object−>opt_n_with(’foo’). Ditto
"−nfoo")
Otherwise (given −n) if there’s an opt_n,
we’ll call it
$object−>opt_n($truth) (Truth defaults to 1)
Otherwise we try calling
$object−>handle_unknown_option(’n’)
(and we
increment the error count by the return value of it)
If there’s no handle_unknown_option, then we just
warn, and then
increment the error counter
The return value of Pod::Perldoc::GetOptsOO::getopts is true if no errors, otherwise it’s false.
Pod::Perldoc
Copyright (c) 2002−2007 Sean M. Burke.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.
Current maintainer: Mark Allen "<[email protected]>"
Past contributions from: brian d foy "<[email protected]>" Adriano R. Ferreira "<[email protected]>", Sean M. Burke "<[email protected]>"