GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  CLASS::MAKEMETHODS::COMPOSITE::UNIVERSAL (3)

.ds Aq ’

NAME

Class::MakeMethods::Composite::Universal - Composite Method Tricks

CONTENTS

SYNOPSIS



  Class::MakeMethods::Composite::Universal->make_patch(
    -TargetClass => SomeClass::OverYonder,
    name => foo,
    pre_rules => [
      sub {
        my $method = pop;
        warn "Arguments for foo:", @_
      }
    ]
    post_rules => [
      sub {
        warn "Result of foo:", Class::MakeMethods::Composite->CurrentResults
      }
    ]
  );



DESCRIPTION

The Composite::Universal suclass of MakeMethods provides some generally-applicable types of methods based on Class::MakeMethods::Composite.

METHOD GENERATOR TYPES

    patch

The patch ruleset generates composites whose core behavior is based on an existing subroutine.

Here’s a sample usage:



  sub foo {
    my $count = shift;
    return foo x $count;
  }
 
  Class::MakeMethods::Composite::Universal->make(
    -ForceInstall => 1,
    patch => {
      name => foo,
      pre_rules => [
        sub {
          my $method = pop @_;
          if ( ! scalar @_ ) {
            @{ $method->{args} } = ( 2 );
          }
        },
        sub {
          my $method = pop @_;
          my $count = shift;
          if ( $count > 99 ) {
            Carp::confess "Wont foo $count -- thats too many!"
          }
        },
      ],
      post_rules => [
        sub {
          my $method = pop @_;
          if ( ref $method->{result} eq SCALAR ) {
            ${ $method->{result} } =~ s/oof/oozle-f/g;
          } elsif ( ref $method->{result} eq ARRAY ) {
            map { s/oof/oozle-f/g } @{ $method->{result} };
          }
        }
      ],
    },
  );



    make_patch

A convenient wrapper for make() and the patch method generator.

Provides the ’-ForceInstall’ flag, which is required to ensure that the patched subroutine replaces the original.

For example, one could add logging to an existing method as follows:



  Class::MakeMethods::Composite::Universal->make_patch(
    -TargetClass => SomeClass::OverYonder,
    name => foo,
    pre_rules => [
      sub {
        my $method = pop;
        warn "Arguments for foo:", @_
      }
    ]
    post_rules => [
      sub {
        warn "Result of foo:", Class::MakeMethods::Composite->CurrentResults
      }
    ]
  );



SEE ALSO

See Class::MakeMethods for general information about this distribution.

See Class::MakeMethods::Composite for more about this family of subclasses.

Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 MAKEMETHODS::COMPOSITE::UNIVERSAL (3) 2004-09-06

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.