use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package Foo;
my $self = shift;
my %params = validated_hash(
\@_,
- foo => { isa => 'Str' },
+ foo => { isa => 'Str' },
);
return $params{foo};
}
my @args = ( bar => delete $p{bar} );
my %params = validated_hash(
- \@args,
- bar => { isa => 'Str' },
- );
+ \@args,
+ bar => { isa => 'Str' },
+ );
$params{bar}, $self->$orig(%p);
};
my @args = ( quux => delete $p{quux} );
my %params = validated_hash(
- \@args,
- quux => { isa => 'Str' },
- );
+ \@args,
+ quux => { isa => 'Str' },
+ );
$params{quux}, $self->$orig(%p);
};
{
my $foo = Foo->new;
- is_deeply( [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
- [ 3, 2, 1 ],
- 'multiple around wrappers can safely be cached' );
-
- is_deeply( [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
- [ 3, 2, 1 ],
- 'multiple around wrappers can safely be cached (2nd time)' );
+ is_deeply(
+ [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
+ [ 3, 2, 1 ],
+ 'multiple around wrappers can safely be cached'
+ );
+
+ is_deeply(
+ [ $foo->foo( foo => 1, bar => 2, quux => 3 ) ],
+ [ 3, 2, 1 ],
+ 'multiple around wrappers can safely be cached (2nd time)'
+ );
}
done_testing();