The sugar subs are not called as methods.

diff --git a/lib/Moose/Exporter.pm b/lib/Moose/Exporter.pm
index b591d3e..b05fc77 100644 (file)
--- a/lib/Moose/Exporter.pm
+++ b/lib/Moose/Exporter.pm
@@ -375,7 +375,7 @@ Moose::Exporter - make an import() and unimport() just like Moose.pm
   );
 
   sub has_rw {
-      my ($caller, $class, $name, %options) = @_;
+      my ($caller, $name, %options) = @_;
       Class::MOP::Class->initialize($caller)->add_attribute($name,
           is => 'rw',
           %options,
@@ -388,7 +388,7 @@ Moose::Exporter - make an import() and unimport() just like Moose.pm
   use MyApp::Moose;
 
   has 'name';
-  sugar1 'do your thing';
+  has_rw 'size';
   thing;
 
   no MyApp::Moose;