local-lib5/man/man3/Moose::Cookbook::Meta::Recipe1.3pm

   1 .\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.3
   2 .\"
   3 .\" Standard preamble:
   4 .\" ========================================================================
   5 .de Sh \" Subsection heading
   6 .br
   7 .if t .Sp
   8 .ne 5
   9 .PP
  10 \fB\\$1\fR
  11 .PP
  12 ..
  13 .de Sp \" Vertical space (when we can't use .PP)
  14 .if t .sp .5v
  15 .if n .sp
  16 ..
  17 .de Vb \" Begin verbatim text
  18 .ft CW
  19 .nf
  20 .ne \\$1
  21 ..
  22 .de Ve \" End verbatim text
  23 .ft R
  24 .fi
  25 ..
  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<>.
  32 .tr \(*W-|\(bv\*(Tr
  33 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
  34 .ie n \{\
  35 .    ds -- \(*W-
  36 .    ds PI pi
  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
  39 .    ds L" ""
  40 .    ds R" ""
  41 .    ds C` ""
  42 .    ds C' ""
  43 'br\}
  44 .el\{\
  45 .    ds -- \|\(em\|
  46 .    ds PI \(*p
  47 .    ds L" ``
  48 .    ds R" ''
  49 'br\}
  50 .\"
  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.
  55 .if \nF \{\
  56 .    de IX
  57 .    tm Index:\\$1\t\\n%\t"\\$2"
  58 ..
  59 .    nr % 0
  60 .    rr F
  61 .\}
  62 .\"
  63 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
  64 .\" way too many mistakes in technical documents.
  65 .hy 0
  66 .if n .na
  67 .\"
  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
  71 .if n \{\
  72 .    ds #H 0
  73 .    ds #V .8m
  74 .    ds #F .3m
  75 .    ds #[ \f1
  76 .    ds #] \fP
  77 .\}
  78 .if t \{\
  79 .    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
  80 .    ds #V .6m
  81 .    ds #F 0
  82 .    ds #[ \&
  83 .    ds #] \&
  84 .\}
  85 .    \" simple accents for nroff and troff
  86 .if n \{\
  87 .    ds ' \&
  88 .    ds ` \&
  89 .    ds ^ \&
  90 .    ds , \&
  91 .    ds ~ ~
  92 .    ds /
  93 .\}
  94 .if t \{\
  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'
 101 .\}
 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 \
 117 \{\
 118 .    ds : e
 119 .    ds 8 ss
 120 .    ds o a
 121 .    ds d- d\h'-1'\(ga
 122 .    ds D- D\h'-1'\(hy
 123 .    ds th \o'bp'
 124 .    ds Th \o'LP'
 125 .    ds ae ae
 126 .    ds Ae AE
 127 .\}
 128 .rm #[ #] #H #V #F C
 129 .\" ========================================================================
 130 .\"
 131 .IX Title "Moose::Cookbook::Meta::Recipe1 3"
 132 .TH Moose::Cookbook::Meta::Recipe1 3 "2009-03-14" "perl v5.8.7" "User Contributed Perl Documentation"
 133 .SH "NAME"
 134 Moose::Cookbook::Meta::Recipe1 \- Welcome to the meta world (Why Go Meta?)
 135 .SH "SUMMARY"
 136 .IX Header "SUMMARY"
 137 You might want to read Moose::Manual::MOP if you haven't done so
 138 yet.
 139 .PP
 140 If you've ever thought \*(L"Moose is great, but I wish it did X
 141 differently\*(R", then you've gone meta. The meta recipes demonstrate how
 142 to change and extend the way Moose works by extending and overriding
 143 how the meta classes (Moose::Meta::Class,
 144 Moose::Meta::Attribute, etc) work.
 145 .PP
 146 The metaclass \s-1API\s0 is a set of classes that describe classes, roles,
 147 attributes, etc. The metaclass \s-1API\s0 lets you ask questions about a
 148 class, like \*(L"what attributes does it have?\*(R", or \*(L"what roles does the
 149 class do?\*(R"
 150 .PP
 151 The metaclass system also lets you make changes to a class, for
 152 example by adding new methods or attributes.
 153 .PP
 154 The interface presented by Moose.pm (\f(CW\*(C`has\*(C'\fR, \f(CW\*(C`with\*(C'\fR,
 155 \&\f(CW\*(C`extends\*(C'\fR) is just a thin layer of syntactic sugar over the
 156 underlying metaclass system.
 157 .PP
 158 By extending and changing how this metaclass system works, you can
 159 create your own Moose variant.
 160 .Sh "Examples"
 161 .IX Subsection "Examples"
 162 Let's say that you want to additional properties to
 163 attributes. Specifically, we want to add a \*(L"label\*(R" property to each
 164 attribute, so we can write \f(CW\*(C`My::Class\->meta()\->get_attribute('size')\->label()\*(C'\fR. The first two
 165 recipes show two different ways to do this, one with a full
 166 meta-attribute subclass, and the other with an attribute trait.
 167 .PP
 168 You might also want to add additional properties to your
 169 metaclass. For example, if you were writing an \s-1ORM\s0 based on Moose, you
 170 could associate a table name with each class via the class's metaclass
 171 object, letting you write \f(CW\*(C`My::Class\->meta()\->table_name()\*(C'\fR.
 172 .SH "SEE ALSO"
 173 .IX Header "SEE ALSO"
 174 Many of the MooseX modules on \s-1CPAN\s0 implement metaclass extensions. A
 175 couple good examples include MooseX::Singleton and
 176 MooseX::AttributeHelpers. For a more complex example see
 177 Fey::ORM or Reaction.
 178 .SH "AUTHOR"
 179 .IX Header "AUTHOR"
 180 Dave Rolsky <autarch@urth.org<gt>
 181 .SH "COPYRIGHT AND LICENSE"
 182 .IX Header "COPYRIGHT AND LICENSE"
 183 Copyright 2009 by Infinity Interactive, Inc.
 184 .PP
 185 <http://www.iinteractive.com>
 186 .PP
 187 This library is free software; you can redistribute it and/or modify
 188 it under the same terms as Perl itself.