.\" Automatically generated by Pod::Man 2.28 (Pod::Simple 3.29)
.\"
.\" 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" ''
.    ds C`
.    ds C'
'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.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{
.    if \nF \{
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "MakeMethods::Composite::Universal 3pm"
.TH MakeMethods::Composite::Universal 3pm "2016-06-10" "perl v5.22.2" "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::MakeMethods::Composite::Universal \- Composite Method Tricks
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 10
\&  Class::MakeMethods::Composite::Universal\->make_patch(
\&    \-TargetClass => \*(AqSomeClass::OverYonder\*(Aq,
\&    name => \*(Aqfoo\*(Aq,
\&    pre_rules => [ 
\&      sub { 
\&        my $method = pop; 
\&        warn "Arguments for foo:", @_ 
\&      } 
\&    ]
\&    post_rules => [ 
\&      sub { 
\&        warn "Result of foo:", Class::MakeMethods::Composite\->CurrentResults 
\&      } 
\&    ]
\&  );
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
The Composite::Universal suclass of MakeMethods provides some generally-applicable types of methods based on Class::MakeMethods::Composite.
.SH "METHOD GENERATOR TYPES"
.IX Header "METHOD GENERATOR TYPES"
.SS "patch"
.IX Subsection "patch"
The patch ruleset generates composites whose core behavior is based on an existing subroutine.
.PP
Here's a sample usage:
.PP
.Vb 4
\&  sub foo {
\&    my $count = shift;
\&    return \*(Aqfoo\*(Aq x $count;
\&  }
\&  
\&  Class::MakeMethods::Composite::Universal\->make(
\&    \-ForceInstall => 1,
\&    patch => {
\&      name => \*(Aqfoo\*(Aq,
\&      pre_rules => [
\&        sub { 
\&          my $method = pop @_;
\&          if ( ! scalar @_ ) {
\&            @{ $method\->{args} } = ( 2 );
\&          }
\&        },
\&        sub { 
\&          my $method = pop @_;
\&          my $count = shift;
\&          if ( $count > 99 ) {
\&            Carp::confess "Won\*(Aqt foo \*(Aq$count\*(Aq \-\- that\*(Aqs too many!"
\&          }
\&        },
\&      ],
\&      post_rules => [
\&        sub { 
\&          my $method = pop @_;
\&          if ( ref $method\->{result} eq \*(AqSCALAR\*(Aq ) {
\&            ${ $method\->{result} } =~ s/oof/oozle\-f/g;
\&          } elsif ( ref $method\->{result} eq \*(AqARRAY\*(Aq ) {
\&            map { s/oof/oozle\-f/g } @{ $method\->{result} };
\&          }
\&        } 
\&      ],
\&    },
\&  );
.Ve
.SS "make_patch"
.IX Subsection "make_patch"
A convenient wrapper for \f(CW\*(C`make()\*(C'\fR and the \f(CW\*(C`patch\*(C'\fR method generator.
.PP
Provides the '\-ForceInstall' flag, which is required to ensure that the patched subroutine replaces the original.
.PP
For example, one could add logging to an existing method as follows:
.PP
.Vb 10
\&  Class::MakeMethods::Composite::Universal\->make_patch(
\&    \-TargetClass => \*(AqSomeClass::OverYonder\*(Aq,
\&    name => \*(Aqfoo\*(Aq,
\&    pre_rules => [ 
\&      sub { 
\&        my $method = pop; 
\&        warn "Arguments for foo:", @_ 
\&      } 
\&    ]
\&    post_rules => [ 
\&      sub { 
\&        warn "Result of foo:", Class::MakeMethods::Composite\->CurrentResults 
\&      } 
\&    ]
\&  );
.Ve
.SH "SEE ALSO"
.IX Header "SEE ALSO"
See Class::MakeMethods for general information about this distribution.
.PP
See Class::MakeMethods::Composite for more about this family of subclasses.