Use a better class name for recipe code

[gitmo/Moose.git] / lib / Moose / Cookbook / Meta / Recipe6.pod

diff --git a/lib/Moose/Cookbook/Meta/Recipe6.pod b/lib/Moose/Cookbook/Meta/Recipe6.pod
index e26637a..730a19f 100644 (file)
--- a/lib/Moose/Cookbook/Meta/Recipe6.pod
+++ b/lib/Moose/Cookbook/Meta/Recipe6.pod
@@ -1,13 +1,15 @@
+package Moose::Cookbook::Meta::Recipe6;
 
-=pod
+# ABSTRACT: A method metaclass for marking methods public or private
+
+__END__
 
-=head1 NAME
 
-Moose::Cookbook::Meta::Recipe6 - A method metaclass for marking methods public or private
+=pod
 
 =head1 SYNOPSIS
 
-  package My::Meta::Method;
+  package MyApp::Meta::Method::PrivateOrPublic;
 
   use Moose;
   use Moose::Util::TypeConstraints;
@@ -64,7 +66,7 @@ Moose::Cookbook::Meta::Recipe6 - A method metaclass for marking methods public o
 
   __PACKAGE__->meta()->add_method(
       '_reset_password',
-      My::Meta::Method->new(
+      MyApp::Meta::Method::PrivateOrPublic->new(
           name         => '_reset_password',
           package_name => __PACKAGE__,
           body         => sub { $_[0]->password('reset') },
@@ -132,19 +134,6 @@ API we have for adding these methods is not very pretty.
 That can be improved with custom Moose-like sugar, or even by using a
 tool like L<Devel::Declare> to create full-blown new keywords in Perl.
 
-=head1 AUTHOR
-
-Dave Rolsky E<lt>autarch@urth.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2009-2010 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
 =begin testing
 
 package main;