1Pod::Perldoc::GetOptsOOU(s3e)r Contributed Perl DocumentaPtoido:n:Perldoc::GetOptsOO(3)
2
3
4
6 Pod::Perldoc::GetOptsOO - Customized option parser for Pod::Perldoc
7
9 use Pod::Perldoc::GetOptsOO ();
10
11 Pod::Perldoc::GetOptsOO::getopts( $obj, \@args, $truth )
12 or die "wrong usage";
13
15 Implements a customized option parser used for Pod::Perldoc.
16
17 Rather like Getopt::Std's getopts:
18
19 Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth)
20 Given -n, if there's a opt_n_with, it'll call $object->opt_n_with(
21 ARGUMENT ) (e.g., "-n foo" => $object->opt_n_with('foo'). Ditto
22 "-nfoo")
23 Otherwise (given -n) if there's an opt_n, we'll call it
24 $object->opt_n($truth) (Truth defaults to 1)
25 Otherwise we try calling $object->handle_unknown_option('n') (and we
26 increment the error count by the return value of it)
27 If there's no handle_unknown_option, then we just warn, and then
28 increment the error counter
29
30 The return value of Pod::Perldoc::GetOptsOO::getopts is true if no
31 errors, otherwise it's false.
32
34 Pod::Perldoc
35
37 Copyright (c) 2002-2007 Sean M. Burke.
38
39 This library is free software; you can redistribute it and/or modify it
40 under the same terms as Perl itself.
41
42 This program is distributed in the hope that it will be useful, but
43 without any warranty; without even the implied warranty of
44 merchantability or fitness for a particular purpose.
45
47 Current maintainer: Mark Allen "<mallen@cpan.org>"
48
49 Past contributions from: brian d foy "<bdfoy@cpan.org>" Adriano R.
50 Ferreira "<ferreira@cpan.org>", Sean M. Burke "<sburke@cpan.org>"
51
52
53
54perl v5.38.0 2023-07-21 Pod::Perldoc::GetOptsOO(3)