From: Stevan Little <stevan.little@iinteractive.com>
Date: Mon, 23 Jun 2008 20:54:19 +0000 (+0000)
Subject: fixing the POD stuff
X-Git-Tag: 0_55~100
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=012fcbd16a8931e308f45774825908d2ce6f47d2;p=gitmo%2FMoose.git

fixing the POD stuff
---

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 787c85c..cadc9d7 100644
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -208,14 +208,12 @@ sub _process_options {
 
     if (exists $options->{is}) {
 
-=pod
-
-is => ro, writer => _foo    # turns into (reader => foo, writer => _foo) as before
-is => rw, writer => _foo    # turns into (reader => foo, writer => _foo)
-is => rw, accessor => _foo  # turns into (accessor => _foo)
-is => ro, accessor => _foo  # error, accesor is rw
-
-=cut        
+        ### -------------------------
+        ## is => ro, writer => _foo    # turns into (reader => foo, writer => _foo) as before
+        ## is => rw, writer => _foo    # turns into (reader => foo, writer => _foo)
+        ## is => rw, accessor => _foo  # turns into (accessor => _foo)
+        ## is => ro, accessor => _foo  # error, accesor is rw
+        ### -------------------------
         
         if ($options->{is} eq 'ro') {
             confess "Cannot define an accessor name on a read-only attribute, accessors are read/write"