Tidy

diff --git a/lib/Mouse/Meta/Method/Accessor.pm b/lib/Mouse/Meta/Method/Accessor.pm
index 6e4d402..cf07e99 100644 (file)
--- a/lib/Mouse/Meta/Method/Accessor.pm
+++ b/lib/Mouse/Meta/Method/Accessor.pm
@@ -1,7 +1,7 @@
 package Mouse::Meta::Method::Accessor;
 use Mouse::Util qw(:meta); # enables strict and warnings
 
-use constant _MOUSE_DEBUG => !!$ENV{MOUSE_DEBUG};
+use constant _MOUSE_DEBUG => $ENV{MOUSE_DEBUG} ? 1 : 0;
 
 sub _inline_slot{
     my(undef, $self_var, $attr_name) = @_;
@@ -18,9 +18,13 @@ sub _generate_accessor_any{
     my $trigger       = $attribute->trigger;
     my $is_weak       = $attribute->is_weak_ref;
     my $should_deref  = $attribute->should_auto_deref;
-    my $should_coerce = (defined($constraint) && $constraint->has_coercion && $attribute->should_coerce);
+    my $should_coerce = (defined($constraint)
+                            && $constraint->has_coercion
+                            && $attribute->should_coerce);
 
-    my $compiled_type_constraint = defined($constraint) ? $constraint->_compiled_type_constraint : undef;
+    my $compiled_type_constraint = defined($constraint)
+        ? $constraint->_compiled_type_constraint
+        : undef;
 
     my $self  = '$_[0]';
     my $slot  = $method_class->_inline_slot($self, $name);;
@@ -30,15 +34,15 @@ sub _generate_accessor_any{
 
     if ($type eq 'rw' || $type eq 'wo') {
         if($type eq 'rw'){
-            $accessor .= 
+            $accessor .=
                 'if (scalar(@_) >= 2) {' . "\n";
         }
         else{ # writer
-            $accessor .= 
+            $accessor .=
                 'if(@_ < 2){ Carp::confess("Not enough arguments for the writer of $name") }'.
                 '{' . "\n";
         }
-                
+
         my $value = '$_[1]';
 
         if (defined $constraint) {
@@ -48,7 +52,7 @@ sub _generate_accessor_any{
                     'my $val = $constraint->coerce('.$value.');';
                 $value = '$val';
             }
-            $accessor .= 
+            $accessor .=
                 "\n".
                 '$compiled_type_constraint->('.$value.') or
                     $attribute->_throw_type_constraint_error('.$value.', $constraint);' . "\n";

diff --git a/lib/Mouse/Meta/Method/Constructor.pm b/lib/Mouse/Meta/Method/Constructor.pm
index 94acd0d..43e5435 100644 (file)
--- a/lib/Mouse/Meta/Method/Constructor.pm
+++ b/lib/Mouse/Meta/Method/Constructor.pm
@@ -1,7 +1,7 @@
 package Mouse::Meta::Method::Constructor;
 use Mouse::Util qw(:meta); # enables strict and warnings
 
-use constant _MOUSE_DEBUG => !!$ENV{MOUSE_DEBUG};
+use constant _MOUSE_DEBUG => $ENV{MOUSE_DEBUG} ? 1 : 0;
 
 sub _inline_slot{
     my(undef, $self_var, $attr_name) = @_;

diff --git a/lib/Mouse/Meta/Method/Destructor.pm b/lib/Mouse/Meta/Method/Destructor.pm
index 220151a..8cf502b 100644 (file)
--- a/lib/Mouse/Meta/Method/Destructor.pm
+++ b/lib/Mouse/Meta/Method/Destructor.pm
@@ -1,7 +1,7 @@
 package Mouse::Meta::Method::Destructor;
 use Mouse::Util qw(:meta); # enables strict and warnings
 
-use constant _MOUSE_DEBUG => !!$ENV{MOUSE_DEBUG};
+use constant _MOUSE_DEBUG => $ENV{MOUSE_DEBUG} ? 1 : 0;
 
 sub _generate_destructor{
     my (undef, $metaclass) = @_;

diff --git a/lib/ouse.pm b/lib/ouse.pm
index a932c66..aac6781 100644 (file)
--- a/lib/ouse.pm
+++ b/lib/ouse.pm
@@ -1,8 +1,6 @@
 package ouse;
-
 use Mouse::Util; # enables strict and warnings
 
-
 my $package = 'Class';
 sub import {
     $package = $_[1] || 'Class';
@@ -28,16 +26,16 @@ ouse - syntactic sugar to make Mouse one-liners easier
   # loads an existing class (Mouse or non-Mouse)
   # and re-"opens" the package definition to make
   # debugging/introspection easier
-  perl -Mouse=+My::Class -e 'print join ", " => __PACKAGE__->meta->get_method_list' 
+  perl -Mouse=+My::Class -e 'print join ", " => __PACKAGE__->meta->get_method_list'
 
 =head1 DESCRIPTION
 
-F<ouse.pm> is a simple source filter that adds C<package $name; use Mouse;> 
-to the beginning of your script and was entirely created because typing 
+F<ouse.pm> is a simple source filter that adds C<package $name; use Mouse;>
+to the beginning of your script and was entirely created because typing
 perl C<< -e'package Foo; use Mouse; ...' >> was annoying me... especially after
 getting used to having C<-Moose> for Moose.
 
-=head1 INTERFACE 
+=head1 INTERFACE
 
 C<ouse> provides exactly one method and it is automatically called by perl: