ws

tobyink · Nov 17, 2019 · 7920319 · 7920319
1 parent 650ad92
commit 7920319
Show file tree

Hide file tree

Showing 5 changed files with 24 additions and 28 deletions.
diff --git a/lib/Type/Tiny.pm b/lib/Type/Tiny.pm
@@ -921,7 +921,7 @@ sub is_parameterized
 		# but only if all the parameters are strings or type constraints.
 		%seen = ();
 		my $key = $self->____make_key(@_);
-		undef($key) if $key =~ /____CANNOT_KEY____/;		
+		undef($key) if $key =~ /____CANNOT_KEY____/;
 		return $param_cache{$key} if defined $key && defined $param_cache{$key};
 
 		local $Type::Tiny::parameterize_type = $self;

diff --git a/lib/Type/Tiny/Role.pm b/lib/Type/Tiny/Role.pm
@@ -24,7 +24,7 @@ my %cache;
 sub new {
 	my $proto = shift;
 	my %opts = (@_==1) ? %{$_[0]} : @_;
-	_croak "Need to supply role name" unless exists $opts{role};	
+	_croak "Need to supply role name" unless exists $opts{role};
 	return $proto->SUPER::new(%opts);
 }
 

diff --git a/lib/Types/Standard.pm b/lib/Types/Standard.pm
@@ -53,7 +53,7 @@ BEGIN {
 
 	*_USE_RUXS = !_AVOID_CALLBACKS() && eval { require Ref::Util::XS; Ref::Util::XS::->VERSION(0.100); 1; }
 		? sub () { !!1 }
-		: sub () { !!0 };	
+		: sub () { !!0 };
 };
 
 

diff --git a/t/30-integration/Specio/basic.t b/t/30-integration/Specio/basic.t
@@ -39,7 +39,7 @@ ok  $Int->can_be_inlined;
 
 my $check_x = $Int->inline_check('$x');
 
-ok do { my $x = '4';    eval $check_x }; 
-ok do { my $x = '4.1'; !eval $check_x }; 
+ok do { my $x = '4';    eval $check_x };
+ok do { my $x = '4.1'; !eval $check_x };
 
 done_testing;
diff --git a/t/40-regression/rt104154.t b/t/40-regression/rt104154.t
@@ -3,32 +3,28 @@ use warnings;
 use Type::Tiny;
 use Test::More;
 
-my $type_without = "Type::Tiny"->new
-  (
-   name       => "HasParam_without",
-   message    => sub { "$_ ain't got a number" },
-   constraint_generator => sub { sub { 0 } }, # Reject everything
-   deep_explanation => sub { ["love to contradict"] },
+my $type_without = "Type::Tiny"->new(
+	name       => "HasParam_without",
+	message    => sub { "$_ ain't got a number" },
+	constraint_generator => sub { sub { 0 } }, # Reject everything
+	deep_explanation => sub { ["love to contradict"] },
 );
 
-my $type_with = "Type::Tiny"->new
-  (
-   constraint => sub { 1 }, # Un-parameterized accepts al
-   name       => "HasParam_with",
-   message    => sub { "$_ ain't got a number" },
-   constraint_generator => sub { sub { 0 } }, # Reject everything
-   deep_explanation => sub { ["love to contradict"] },
+my $type_with = "Type::Tiny"->new(
+	constraint => sub { 1 }, # Un-parameterized accepts al
+	name       => "HasParam_with",
+	message    => sub { "$_ ain't got a number" },
+	constraint_generator => sub { sub { 0 } }, # Reject everything
+	deep_explanation => sub { ["love to contradict"] },
 );
 
-my $type_parent = "Type::Tiny"->new
-  (
-   parent => $type_without,
-   name       => "HasParam_parent",
-   message    => sub { "$_ ain't got a number" },
-   constraint_generator => sub { sub { 0 } }, # Reject everything
-   deep_explanation => sub { ["love to contradict"] },
-  );
-
+my $type_parent = "Type::Tiny"->new(
+	parent => $type_without,
+	name       => "HasParam_parent",
+	message    => sub { "$_ ain't got a number" },
+	constraint_generator => sub { sub { 0 } }, # Reject everything
+	deep_explanation => sub { ["love to contradict"] },
+);
 
 my $s = 'a string';
 my $param_with = $type_with->parameterize('an ignored parameter');
@@ -50,4 +46,4 @@ $explain_without =~ s/(HasParam)_\w+/$1/g;
 ok $explain_with eq $explain_without;
 ok $explain_parent eq $explain_without;
 
-done_testing;
+done_testing;