.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.07)
.\"
.\" Standard preamble:
.\" ========================================================================
.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 (.SS), 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 "Class::Adapter::Builder 3pm"
.TH Class::Adapter::Builder 3pm "2010-04-12" "perl v5.10.1" "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"
Class::Adapter::Builder \- Generate Class::Adapter classes
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&  package My::Adapter;
\&  
\&  use strict;
\&  use Class::Adapter::Builder
\&      ISA     => \*(AqSpecific::API\*(Aq,
\&      METHODS => [ qw{foo bar baz} ],
\&      method  => \*(Aqdifferent_method\*(Aq;
\&  
\&  1;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\f(CW\*(C`Class::Adapter::Builder\*(C'\fR is another mechanism for letting you create
\&\fIAdapter\fR classes of your own.
.PP
It is intended to act as a toolkit for generating the guts of many varied
and different types of \fIAdapter\fR classes.
.PP
For a simple base class you can inherit from and change a specific method,
see Class::Adapter::Clear.
.SS "The Pragma Interface"
.IX Subsection "The Pragma Interface"
The most common method for defining \fIAdapter\fR classes, as shown in the
synopsis, is the pragma interface.
.PP
This consists of a set of key/value pairs provided when you load the module.
.PP
.Vb 2
\&  # The format for building Adapter classes
\&  use Class::Adapter::Builder PARAM => VALUE, ...
.Ve
.IP "\s-1ISA\s0" 4
.IX Item "ISA"
The \f(CW\*(C`ISA\*(C'\fR param is provided as either a single value, or a reference
to an \f(CW\*(C`ARRAY\*(C'\fR containing is list of classes.
.Sp
Normally this is just a straight list of classes. However, if the value
for \f(CW\*(C`ISA\*(C'\fR is set to \f(CW\*(Aq_OBJECT_\*(Aq\fR the object will identify itself as
whatever is contained in it when the \f(CW\*(C`\->isa\*(C'\fR and \f(CW\*(C`\->can\*(C'\fR method
are called on it.
.IP "\s-1NEW\s0" 4
.IX Item "NEW"
Normally, you need to create your \f(CW\*(C`Class::Adapter\*(C'\fR objects separately:
.Sp
.Vb 2
\&  # Create the object
\&  my $query = CGI\->new( \*(Aqparam1\*(Aq, \*(Aqparam2\*(Aq );
\&  
\&  # Create the Decorator
\&  my $object = My::Adapter\->new( $query );
.Ve
.Sp
If you provide a class name as the \f(CW\*(C`NEW\*(C'\fR param, the Decorator will
do this for you, passing on any constructor arguments.
.Sp
.Vb 2
\&  # Assume we provided the following
\&  # NEW => \*(AqCGI\*(Aq,
\&  
\&  # We can now do the above in one step
\&  my $object = My::Adapter\->new( \*(Aqparam1\*(Aq, \*(Aqparam2\*(Aq );
.Ve
.IP "\s-1AUTOLOAD\s0" 4
.IX Item "AUTOLOAD"
By default, a \f(CW\*(C`Class::Adapter\*(C'\fR does not pass on any methods, with the
methods to be passed on specified explicitly with the \f(CW\*(AqMETHODS\*(Aq\fR
param.
.Sp
By setting \f(CW\*(C`AUTOLOAD\*(C'\fR to true, the \f(CW\*(C`Adapter\*(C'\fR will be given the
standard \f(CW\*(C`AUTOLOAD\*(C'\fR function to to pass through all unspecified
methods to the parent object.
.Sp
By default the \s-1AUTOLOAD\s0 will pass through any and all calls, including
calls to private methods.
.Sp
If the \s-1AUTOLOAD\s0 is specifically set to '\s-1PUBLIC\s0', the \s-1AUTOLOAD\s0 setting
will \s-1ONLY\s0 apply to public methods, and any private methods will not
be passed through.
.IP "\s-1METHODS\s0" 4
.IX Item "METHODS"
The \f(CW\*(C`METHODS\*(C'\fR param is provided as a reference to an array of all
the methods that are to be passed through to the parent object as is.
.PP
Any params other than the ones specified above are taken as translated
methods.
.PP
.Vb 2
\&  # If you provide the following
\&  # foo => bar
\&  
\&  # It the following are equivalent
\&  $decorator\->foo;
\&  $decorator\->_OBJECT_\->bar;
.Ve
.PP
This capability is provided primarily because in Perl one of the main
situations in which you hit the limits of Perl's inheritance model is
when your class needs to inherit from multiple different classes that
containing clashing methods.
.PP
For example:
.PP
.Vb 2
\&  # If your class is like this
\&  package Foo;
\&  
\&  use base \*(AqThis\*(Aq, \*(AqThat\*(Aq;
\&  
\&  1;
.Ve
.PP
If both \f(CW\*(C`This\->method\*(C'\fR exists and \f(CW\*(C`That\->method\*(C'\fR exists,
and both mean different things, then \f(CW\*(C`Foo\->method\*(C'\fR becomes
ambiguous.
.PP
A \f(CW\*(C`Class::Adapter\*(C'\fR could be used to wrap your \f(CW\*(C`Foo\*(C'\fR object, with
the \f(CW\*(C`Class::Adapter\*(C'\fR becoming the \f(CW\*(C`That\*(C'\fR sub-class, and passing
\&\f(CW\*(C`$decorator\->method\*(C'\fR through to \f(CW\*(C`$object\->that_method\*(C'\fR.
.SH "METHODS"
.IX Header "METHODS"
Yes, \f(CW\*(C`Class::Adapter::Builder\*(C'\fR has public methods and later on you will
be able to access them directly, but for now they are remaining
undocumented, so that I can shuffle things around for another few
versions.
.PP
Just stick to the pragma interface for now.
.SH "SUPPORT"
.IX Header "SUPPORT"
Bugs should be reported via the \s-1CPAN\s0 bug tracker at
.PP
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Class\-Adapter>
.PP
For other issues, contact the author.
.SH "AUTHOR"
.IX Header "AUTHOR"
Adam Kennedy <adamk@cpan.org>
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Class::Adapter, Class::Adapter::Clear
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright 2005 \- 2010 Adam Kennedy.
.PP
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
.PP
The full text of the license can be found in the
\&\s-1LICENSE\s0 file included with this module.