1 .\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.3
4 .\" ========================================================================
5 .de Sh \" Subsection heading
13 .de Sp \" Vertical space (when we can't use .PP)
17 .de Vb \" Begin verbatim text
22 .de Ve \" End verbatim text
26 .\" Set up some character translations and predefined strings. \*(-- will
27 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
28 .\" double quote, and \*(R" will give a right double quote. | will give a
29 .\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30 .\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
31 .\" expand to `' in nroff, nothing in troff, for use with C<>.
33 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
37 . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
38 . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
51 .\" If the F register is turned on, we'll generate index entries on stderr for
52 .\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53 .\" entries marked with X<> in POD. Of course, you'll have to process the
54 .\" output yourself in some meaningful fashion.
57 . tm Index:\\$1\t\\n%\t"\\$2"
63 .\" For nroff, turn off justification. Always turn off hyphenation; it makes
64 .\" way too many mistakes in technical documents.
68 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69 .\" Fear. Run. Save yourself. No user-serviceable parts.
70 . \" fudge factors for nroff and troff
79 . ds #H ((1u-(\\\\n(.fu%2u))*.13m)
85 . \" simple accents for nroff and troff
95 . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
96 . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
97 . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
98 . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
99 . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
100 . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
102 . \" troff and (daisy-wheel) nroff accents
103 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
104 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
105 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
106 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
107 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
108 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
109 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
110 .ds ae a\h'-(\w'a'u*4/10)'e
111 .ds Ae A\h'-(\w'A'u*4/10)'E
112 . \" corrections for vroff
113 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
114 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
115 . \" for low resolution devices (crt and lpr)
116 .if \n(.H>23 .if \n(.V>19 \
129 .\" ========================================================================
131 .IX Title "Class::MOP::Method::Wrapped 3"
132 .TH Class::MOP::Method::Wrapped 3 "2009-11-18" "perl v5.8.7" "User Contributed Perl Documentation"
134 Class::MOP::Method::Wrapped \- Method Meta Object for methods with before/after/around modifiers
136 .IX Header "DESCRIPTION"
137 This is a Class::MOP::Method subclass which implements before,
138 after, and around method modifiers.
142 .IX Subsection "Construction"
143 .ie n .IP "\fBClass::MOP::Method::Wrapped\->wrap($metamethod, \fB%options\fB)\fR" 4
144 .el .IP "\fBClass::MOP::Method::Wrapped\->wrap($metamethod, \f(CB%options\fB)\fR" 4
145 .IX Item "Class::MOP::Method::Wrapped->wrap($metamethod, %options)"
146 This is the constructor. It accepts a Class::MOP::Method object and
153 The method name (without a package name). This will be taken from the
154 provided Class::MOP::Method object if it is not provided.
155 .IP "* package_name" 8
156 .IX Item "package_name"
157 The package name for the method. This will be taken from the provided
158 Class::MOP::Method object if it is not provided.
159 .IP "* associated_metaclass" 8
160 .IX Item "associated_metaclass"
161 An optional Class::MOP::Class object. This is the metaclass for the
166 .IP "\fB$metamethod\->get_original_method\fR" 4
167 .IX Item "$metamethod->get_original_method"
168 This returns the Class::MOP::Method object that was passed to the
170 .IP "\fB$metamethod\->add_before_modifier($code)\fR" 4
171 .IX Item "$metamethod->add_before_modifier($code)"
173 .IP "\fB$metamethod\->add_after_modifier($code)\fR" 4
174 .IX Item "$metamethod->add_after_modifier($code)"
175 .IP "\fB$metamethod\->add_around_modifier($code)\fR" 4
176 .IX Item "$metamethod->add_around_modifier($code)"
178 These methods all take a subroutine reference and apply it as a
179 modifier to the original method.
180 .IP "\fB$metamethod\->before_modifiers\fR" 4
181 .IX Item "$metamethod->before_modifiers"
183 .IP "\fB$metamethod\->after_modifiers\fR" 4
184 .IX Item "$metamethod->after_modifiers"
185 .IP "\fB$metamethod\->around_modifiers\fR" 4
186 .IX Item "$metamethod->around_modifiers"
188 These methods all return a list of subroutine references which are
189 acting as the specified type of modifier.
192 Stevan Little <stevan@iinteractive.com>
193 .SH "COPYRIGHT AND LICENSE"
194 .IX Header "COPYRIGHT AND LICENSE"
195 Copyright 2006\-2009 by Infinity Interactive, Inc.
197 <http://www.iinteractive.com>
199 This library is free software; you can redistribute it and/or modify
200 it under the same terms as Perl itself.