From: gfx <gfuji@cpan.org>
Date: Sat, 5 Dec 2009 05:13:28 +0000 (+0900)
Subject: Tidy
X-Git-Tag: 0.41~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf59b7151d2b476a74b5abd84af37770ad4cf387;p=gitmo%2FMouse.git

Tidy
---

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index b7cc594..aac0782 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -157,7 +157,6 @@ sub init_meta {
     return $meta;
 }
 
-
 1;
 __END__
 
diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm
index 58f764d..b1f4f91 100644
--- a/lib/Mouse/Exporter.pm
+++ b/lib/Mouse/Exporter.pm
@@ -253,7 +253,6 @@ sub _get_caller_package {
 #sub _spec{ %SPEC }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index 0445fa7..5490362 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -8,7 +8,6 @@ use Mouse::Meta::TypeConstraint;
 #use Mouse::Meta::Method::Accessor;
 use Mouse::Meta::Method::Delegation;
 
-
 sub _process_options{
     my($class, $name, $args) = @_;
 
@@ -376,7 +375,6 @@ sub associate_method{
     return;
 }
 
-
 sub delegation_metaclass() { 'Mouse::Meta::Method::Delegation' }
 
 sub install_accessors{
@@ -409,7 +407,6 @@ sub install_accessors{
         }
     }
 
-
     if($attribute->can('create') != \&create){
         # backword compatibility
         $attribute->create($metaclass, $attribute->name, %{$attribute});
@@ -426,7 +423,6 @@ sub throw_error{
 }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Meta/Method.pm b/lib/Mouse/Meta/Method.pm
index 7fb56bd..68b1a8f 100755
--- a/lib/Mouse/Meta/Method.pm
+++ b/lib/Mouse/Meta/Method.pm
@@ -28,7 +28,7 @@ sub package_name         { $_[0]->{package} }
 sub associated_metaclass { $_[0]->{associated_metaclass} }
 
 sub fully_qualified_name {
-    my $self = shift;
+    my($self) = @_;
     return $self->package_name . '::' . $self->name;
 }
 
diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm
index 94ac4bc..4805b93 100755
--- a/lib/Mouse/Meta/Module.pm
+++ b/lib/Mouse/Meta/Module.pm
@@ -89,7 +89,6 @@ sub remove_attribute  { delete $_[0]->{attributes}->{$_[1]} }
 
 sub get_attribute_list{ keys   %{$_[0]->{attributes}} }
 
-
 # XXX: for backward compatibility
 my %foreign = map{ $_ => undef } qw(
     Mouse Mouse::Role Mouse::Util Mouse::Util::TypeConstraints
@@ -304,7 +303,6 @@ sub throw_error{
 }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm
index 30f1fab..67f420a 100644
--- a/lib/Mouse/Object.pm
+++ b/lib/Mouse/Object.pm
@@ -3,7 +3,6 @@ use Mouse::Util qw(does dump meta); # enables strict and warnings
 
 sub new;
 
-
 sub BUILDALL {
     my $self = shift;
 
@@ -40,7 +39,6 @@ sub DEMOLISHALL {
 }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index 4596b2c..acac4dd 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -65,7 +65,6 @@ BEGIN{
     *MOUSE_XS = sub(){ $xs };
 }
 
-
 use Carp         ();
 use Scalar::Util ();
 
@@ -260,7 +259,6 @@ sub load_class {
 
 sub is_class_loaded;
 
-
 sub apply_all_roles {
     my $applicant = Scalar::Util::blessed($_[0])
         ?                                shift   # instance
@@ -306,7 +304,6 @@ sub english_list {
     return join q{, }, @items, "and $tail";
 }
 
-
 # common utilities
 
 sub not_supported{
@@ -339,7 +336,6 @@ sub does :method;
 *does = \&does_role; # alias
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Util/MetaRole.pm b/lib/Mouse/Util/MetaRole.pm
index 343acda..61e5fcd 100644
--- a/lib/Mouse/Util/MetaRole.pm
+++ b/lib/Mouse/Util/MetaRole.pm
@@ -78,7 +78,6 @@ sub _make_new_class {
 }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/Mouse/Util/TypeConstraints.pm b/lib/Mouse/Util/TypeConstraints.pm
index 45321fa..b51d9fb 100644
--- a/lib/Mouse/Util/TypeConstraints.pm
+++ b/lib/Mouse/Util/TypeConstraints.pm
@@ -342,7 +342,6 @@ sub find_or_create_isa_type_constraint {
 }
 
 1;
-
 __END__
 
 =head1 NAME
diff --git a/lib/ouse.pm b/lib/ouse.pm
index 3026ced..6ebf64dc 100644
--- a/lib/ouse.pm
+++ b/lib/ouse.pm
@@ -16,11 +16,8 @@ BEGIN {
 }
 
 1;
-
 __END__
 
-=pod
-
 =head1 NAME
 
 ouse - syntactic sugar to make Mouse one-liners easier