Remove recipe on providing an alternate base class
Dave Rolsky [Sun, 2 Oct 2011 20:50:33 +0000 (15:50 -0500)]
lib/Moose/Cookbook/Extending/Recipe3.pod [deleted file]

diff --git a/lib/Moose/Cookbook/Extending/Recipe3.pod b/lib/Moose/Cookbook/Extending/Recipe3.pod
deleted file mode 100644 (file)
index ea75547..0000000
+++ /dev/null
@@ -1,112 +0,0 @@
-package Moose::Cookbook::Extending::Recipe3;
-
-# ABSTRACT: Providing an alternate base object class
-
-__END__
-
-
-=pod
-
-=begin testing-SETUP
-
-use Test::Requires {
-    'Test::Output' => '0',
-};
-
-=end testing-SETUP
-
-=head1 SYNOPSIS
-
-  package MyApp::Base;
-  use Moose;
-
-  extends 'Moose::Object';
-
-  before 'new' => sub { warn "Making a new " . $_[0] };
-
-  no Moose;
-
-  package MyApp::UseMyBase;
-  use Moose ();
-  use Moose::Exporter;
-
-  Moose::Exporter->setup_import_methods( also => 'Moose' );
-
-  sub init_meta {
-      shift;
-      return Moose->init_meta( @_, base_class => 'MyApp::Base' );
-  }
-
-=head1 DESCRIPTION
-
-A common extension is to provide an alternate base class. One way to
-do that is to make a C<MyApp::Base> and add C<S<extends
-'MyApp::Base'>> to every class in your application. That's pretty
-tedious. Instead, you can create a Moose-alike module that sets the
-base object class to C<MyApp::Base> for you.
-
-Then, instead of writing C<S<use Moose>> you can write C<S<use
-MyApp::UseMyBase>>.
-
-In this particular example, our base class issues some debugging
-output every time a new object is created, but you can think of some
-more interesting things to do with your own base class.
-
-This uses the magic of L<Moose::Exporter>. When we call C<<
-Moose::Exporter->setup_import_methods( also => 'Moose' ) >> it builds
-C<import> and C<unimport> methods for you. The C<< also => 'Moose' >>
-bit says that we want to export everything that Moose does.
-
-The C<import> method that gets created will call our C<init_meta>
-method, passing it C<< for_caller => $caller >> as its
-arguments. The C<$caller> is set to the class that actually imported
-us in the first place.
-
-See the L<Moose::Exporter> docs for more details on its API.
-
-=head1 USING MyApp::UseMyBase
-
-To actually use our new base class, we simply use C<MyApp::UseMyBase>
-I<instead> of C<Moose>. We get all the Moose sugar plus our new base
-class.
-
-  package Foo;
-
-  use MyApp::UseMyBase;
-
-  has 'size' => ( is => 'rw' );
-
-  no MyApp::UseMyBase;
-
-=head1 CONCLUSION
-
-This is an awful lot of magic for a simple base class. You will often
-want to combine a metaclass trait with a base class extension, and
-that's when this technique is useful.
-
-=begin testing
-
-{
-    package Foo;
-
-    MyApp::UseMyBase->import;
-
-    has( 'size' => ( is => 'rw' ) );
-}
-
-ok( Foo->isa('MyApp::Base'), 'Foo isa MyApp::Base' );
-
-ok( Foo->can('size'), 'Foo has a size method' );
-
-my $foo;
-stderr_like(
-    sub { $foo = Foo->new( size => 2 ) },
-    qr/^Making a new Foo/,
-    'got expected warning when calling Foo->new'
-);
-
-is( $foo->size(), 2, '$foo->size is 2' );
-
-=end testing
-
-=cut