modperl::methodlookup.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 "mod_perl-2.0.2::docs::api::ModPerl::MethodLookup 3"
.TH mod_perl-2.0.2::docs::api::ModPerl::MethodLookup 3 "2005-10-21" "perl v5.10.0" "User Contributed Perl Documentation"
.\" 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"
ModPerl::MethodLookup \-\- Lookup mod_perl modules, objects and methods
.SH "Synopsis"
.IX Header "Synopsis"
.Vb 1
\&  use ModPerl::MethodLookup;
\&  
\&  # return all module names containing XS method \*(Aqprint\*(Aq
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq);
\&  
\&  # return only module names containing method \*(Aqprint\*(Aq which
\&  # expects the first argument to be of type \*(AqApache2::Filter\*(Aq
\&  # (here $filter is an Apache2::Filter object)
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq, $filter);
\&  # or
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq, \*(AqApache2::Filter\*(Aq);
\&  
\&  # what XS methods defined by module \*(AqApache2::Filter\*(Aq
\&  my ($hint, @methods) =
\&      ModPerl::MethodLookup::lookup_module(\*(AqApache2::Filter\*(Aq);
\&  
\&  # what XS methods can be invoked on the object $r (or a ref)
\&  my ($hint, @methods) =
\&      ModPerl::MethodLookup::lookup_object($r);
\&  # or
\&  my ($hint, @methods) =
\&      ModPerl::MethodLookup::lookup_object(\*(AqApache2::RequestRec\*(Aq);
\&  
\&  # preload all mp2 modules in startup.pl
\&  ModPerl::MethodLookup::preload_all_modules();
\&  
\&  # command line shortcuts
\&  % perl \-MModPerl::MethodLookup \-e print_module \e
\&    Apache2::RequestRec Apache2::Filter
\&  % perl \-MModPerl::MethodLookup \-e print_object Apache2
\&  % perl \-MModPerl::MethodLookup \-e print_method \e
\&    get_server_built request
\&  % perl \-MModPerl::MethodLookup \-e print_method read
\&  % perl \-MModPerl::MethodLookup \-e print_method read APR::Bucket
.Ve
.SH "Description"
.IX Header "Description"
mod_perl 2.0 provides many methods, which reside in various
modules. One has to load each of the modules before using the desired
methods. \f(CW\*(C`ModPerl::MethodLookup\*(C'\fR provides the Perl \s-1API\s0 for finding
module names which contain methods in question and other helper
functions, to find out out what methods defined by some module, what
methods can be called on a given object, etc.
.SH "API"
.IX Header "API"
.ie n .Sh """lookup_method()"""
.el .Sh "\f(CWlookup_method()\fP"
.IX Subsection "lookup_method()"
Find modules (packages) containing a certain method
.PP
.Vb 3
\&  ($hint, @modules) = lookup_method($method_name);
\&  ($hint, @modules) = lookup_method($method_name, $object);
\&  ($hint, @modules) = lookup_method($method_name, $class));
.Ve
.ie n .IP "arg1: $method_name ( string )" 4
.el .IP "arg1: \f(CW$method_name\fR ( string )" 4
.IX Item "arg1: $method_name ( string )"
the method name to look up
.ie n .IP "opt arg2: $object\fR or \f(CW$class" 4
.el .IP "opt arg2: \f(CW$object\fR or \f(CW$class\fR" 4
.IX Item "opt arg2: $object or $class"
a blessed object or the name of the class it's blessed into. If there
is more than one match, this extra information is used to return only
modules containing methods operating on the objects of the same kind.
.Sp
If a sub-classed object is passed it'll be handled correctly, by
checking its super\-class(es).  This usage is useful when the
\&\f(CW\*(C`AUTOLOAD\*(C'\fR is used to find a not yet loaded module
which include the called method.
.ie n .IP "ret1: $hint" 4
.el .IP "ret1: \f(CW$hint\fR" 4
.IX Item "ret1: $hint"
a string containing a human readable lookup result, suggesting which
modules should be loaded, ready for copy-n-paste or explaining the
failure if the lookup didn't succeed.
.ie n .IP "ret2: @modules" 4
.el .IP "ret2: \f(CW@modules\fR" 4
.IX Item "ret2: @modules"
an array of modules which have matched the query, i.e. the names of
the modules which contain the requested method.
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PP
Examples:
.PP
Return all module names containing \s-1XS\s0 method \fIprint\fR:
.PP
.Vb 2
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq);
.Ve
.PP
Return only module names containing method \fIprint\fR which expects the
first argument to be of type \f(CW\*(C`Apache2::Filter\*(C'\fR:
.PP
.Vb 3
\&  my $filter = bless {}, \*(AqApache2::Filter\*(Aq;
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq, $filter);
.Ve
.PP
or:
.PP
.Vb 2
\&  my ($hint, @modules) =
\&      ModPerl::MethodLookup::lookup_method(\*(Aqprint\*(Aq, \*(AqApache2::Filter\*(Aq);
.Ve
.ie n .Sh """lookup_module()"""
.el .Sh "\f(CWlookup_module()\fP"
.IX Subsection "lookup_module()"
Find methods contained in a certain module (package)
.PP
.Vb 1
\&  ($hint, @methods) = lookup_module($module_name);
.Ve
.ie n .IP "arg1: $module_name ( string )" 4
.el .IP "arg1: \f(CW$module_name\fR ( string )" 4
.IX Item "arg1: $module_name ( string )"
the module name
.ie n .IP "ret1: $hint" 4
.el .IP "ret1: \f(CW$hint\fR" 4
.IX Item "ret1: $hint"
a string containing a human readable lookup result, suggesting, which
methods the module \f(CW$module_name\fR implements, or explaining the
failure if the lookup failed.
.ie n .IP "ret2: @methods" 4
.el .IP "ret2: \f(CW@methods\fR" 4
.IX Item "ret2: @methods"
an array of methods which have matched the query, i.e. the names of
the methods defined in the requested module.
.IP "since: 2.0.00" 4
.IX Item "since: 2.0.00"
.PP
Example:
.PP
What \s-1XS\s0 methods defined by module \f(CW\*(C`Apache2::Filter\*(C'\fR:
.PP
.Vb 2
\&  my ($hint, @methods) =
\&      ModPerl::MethodLookup::lookup_module(\*(AqApache2::Filter\*(Aq);
.Ve
.ie n .Sh """lookup_object()"""
.el .Sh "\f(CWlookup_object()\fP"
.IX Subsection "lookup_object()"
.Vb 2
\&  ($hint, @methods) = lookup_object($object);
\&  ($hint, @methods) = lookup_object($class);
.Ve
.ie n .IP "arg1: $object\fR or \f(CW$class" 4