From: gfx Date: Sat, 9 Jan 2010 07:42:12 +0000 (+0900) Subject: CRLF to LF X-Git-Tag: 0.46~13 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=278448b8f21fcab08c1e364e145b1848cca64c5c;p=gitmo%2FMouse.git CRLF to LF --- diff --git a/lib/Mouse/Meta/TypeConstraint.pm b/lib/Mouse/Meta/TypeConstraint.pm index 06d7749..fb7047b 100644 --- a/lib/Mouse/Meta/TypeConstraint.pm +++ b/lib/Mouse/Meta/TypeConstraint.pm @@ -114,15 +114,15 @@ sub _add_type_coercions{ } else{ $self->{_compiled_type_coercion} = sub { - my($thing) = @_; - foreach my $pair (@{$coercions}) { - #my ($constraint, $converter) = @$pair; - if ($pair->[0]->check($thing)) { + my($thing) = @_; + foreach my $pair (@{$coercions}) { + #my ($constraint, $converter) = @$pair; + if ($pair->[0]->check($thing)) { local $_ = $thing; return $pair->[1]->($thing); - } - } - return $thing; + } + } + return $thing; }; } return; diff --git a/lib/Mouse/Spec.pm b/lib/Mouse/Spec.pm index f688eb4..f7a7f44 100644 --- a/lib/Mouse/Spec.pm +++ b/lib/Mouse/Spec.pm @@ -71,7 +71,7 @@ L - The (always classic) B example =item * -L - A simple B example +L - A simple B example =item * @@ -83,31 +83,31 @@ L - Subtypes, and modeling a simple B =item * -L - More subtypes, coercion in a B class +L - More subtypes, coercion in a B class =item * -L - The augment/inner example +L - The augment/inner example =item * -L - Making Moose fast with immutable +L - Making Moose fast with immutable =item * -L - Builder methods and lazy_build +L - Builder methods and lazy_build =item * -L - Operator overloading, subtypes, and coercion +L - Operator overloading, subtypes, and coercion =item * -L - Using BUILDARGS and BUILD to hook into object construction +L - Using BUILDARGS and BUILD to hook into object construction =item * -L - The Moose::Role example +L - The Moose::Role example =item * @@ -115,19 +115,19 @@ L - Advanced Role Composition - method exclusio =item * -L - Applying a role to an object instance +L - Applying a role to an object instance =item * -L - A meta-attribute, attributes with labels +L - A meta-attribute, attributes with labels =item * -L - Labels implemented via attribute traits +L - Labels implemented via attribute traits =item * -L - Providing an alternate base object class +L - Providing an alternate base object class =back diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index 17fc188..338f198 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -153,7 +153,7 @@ BEGIN { } return $type eq 'c3' ? [calculateMRO($classname)] - : $_get_linear_isa_dfs->($classname); + : $_get_linear_isa_dfs->($classname); }; } diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t index 01786eb..8a3eb9f 100644 --- a/t/990_deprecated/044-attribute-metaclass.t +++ b/t/990_deprecated/044-attribute-metaclass.t @@ -31,14 +31,14 @@ do { return $attr; }; - around 'canonicalize_args' => sub { - my ($next, $self, $name, %args) = @_; - - %args = $next->($self, $name, %args); - $args{is} = 'rw' unless exists $args{is}; - - return %args; - }; + around 'canonicalize_args' => sub { + my ($next, $self, $name, %args) = @_; + + %args = $next->($self, $name, %args); + $args{is} = 'rw' unless exists $args{is}; + + return %args; + }; package # hide me from search.cpan.org Mouse::Meta::Attribute::Custom::Number;