pod::simple::search.3

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

.\" Automatically generated by Pod::Man 2.16 (Pod::Simple 3.05)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Pod::Simple::Search 3"
.TH Pod::Simple::Search 3 "2007-12-18" "perl v5.10.0" "Perl Programmers Reference Guide"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Pod::Simple::Search \- find POD documents in directory trees
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 4
\&  use Pod::Simple::Search;
\&  my $name2path = Pod::Simple::Search\->new\->limit_glob(\*(AqLWP::*\*(Aq)\->survey;
\&  print "Looky see what I found: ",
\&    join(\*(Aq \*(Aq, sort keys %$name2path), "\en";
\&
\&  print "LWPUA docs = ",
\&    Pod::Simple::Search\->new\->find(\*(AqLWP::UserAgent\*(Aq) || "?",
\&    "\en";
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\fBPod::Simple::Search\fR is a class that you use for running searches
for Pod files.  An object of this class has several attributes
(mostly options for controlling search options), and some methods
for searching based on those attributes.
.PP
The way to use this class is to make a new object of this class,
set any options, and then call one of the search options
(probably \f(CW\*(C`survey\*(C'\fR or \f(CW\*(C`find\*(C'\fR).  The sections below discuss the
syntaxes for doing all that.
.SH "CONSTRUCTOR"
.IX Header "CONSTRUCTOR"
This class provides the one constructor, called \f(CW\*(C`new\*(C'\fR.
It takes no parameters:
.PP
.Vb 2
\&  use Pod::Simple::Search;
\&  my $search = Pod::Simple::Search\->new;
.Ve
.SH "ACCESSORS"
.IX Header "ACCESSORS"
This class defines several methods for setting (and, occasionally,
reading) the contents of an object. With two exceptions (discussed at
the end of this section), these attributes are just for controlling the
way searches are carried out.
.PP
Note that each of these return \f(CW$self\fR when you call them as
\&\f(CW\*(C`$self\->\f(CIwhatever(value)\f(CW\*(C'\fR.  That's so that you can chain
together set-attribute calls like this:
.PP
.Vb 4
\&  my $name2path =
\&    Pod::Simple::Search\->new
\&    \-> inc(0) \-> verbose(1) \-> callback(\e&blab)
\&    \->survey(@there);
.Ve
.PP
\&...which works exactly as if you'd done this:
.PP
.Vb 5
\&  my $search = Pod::Simple::Search\->new;
\&  $search\->inc(0);
\&  $search\->verbose(1);
\&  $search\->callback(\e&blab);
\&  my $name2path = $search\->survey(@there);
.Ve
.ie n .IP "$search\fR\->inc( \fItrue-or-false );" 4
.el .IP "\f(CW$search\fR\->inc( \fItrue-or-false\fR );" 4
.IX Item "$search->inc( true-or-false );"
This attribute, if set to a true value, means that searches should
implicitly add perl's \fI\f(CI@INC\fI\fR paths. This
automatically considers paths specified in the \f(CW\*(C`PERL5LIB\*(C'\fR environment
as this is prepended to \fI\f(CI@INC\fI\fR by the Perl interpreter itself.
This attribute's default value is \fB\s-1TRUE\s0\fR.  If you want to search
only specific directories, set \f(CW$self\fR\->\fIinc\fR\|(0) before calling
\&\f(CW$inc\fR\->survey or \f(CW$inc\fR\->find.
.ie n .IP "$search\fR\->verbose( \fInonnegative-number );" 4
.el .IP "\f(CW$search\fR\->verbose( \fInonnegative-number\fR );" 4
.IX Item "$search->verbose( nonnegative-number );"
This attribute, if set to a nonzero positive value, will make searches output
(via \f(CW\*(C`warn\*(C'\fR) notes about what they're doing as they do it.
This option may be useful for debugging a pod-related module.
This attribute's default value is zero, meaning that no \f(CW\*(C`warn\*(C'\fR messages
are produced.  (Setting verbose to 1 turns on some messages, and setting
it to 2 turns on even more messages, i.e., makes the following search(es)
even more verbose than 1 would make them.)
.ie n .IP "$search\fR\->limit_glob( \fIsome-glob-string );" 4
.el .IP "\f(CW$search\fR\->limit_glob( \fIsome-glob-string\fR );" 4
.IX Item "$search->limit_glob( some-glob-string );"
This option means that you want to limit the results just to items whose
podnames match the given glob/wildcard expression. For example, you
might limit your search to just \*(L"LWP::*\*(R", to search only for modules
starting with \*(L"LWP::*\*(R" (but not including the module \*(L"\s-1LWP\s0\*(R" itself); or
you might limit your search to \*(L"LW*\*(R" to see only modules whose (full)