Merge pull request #9 from syohex/coercive-type

Fix coercive types declaration
sergot · Dec 25, 2015 · baf8dcf · baf8dcf
2 parents ff842b9 + fabf269
commit baf8dcf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Test/IO/Capture.pm b/lib/Test/IO/Capture.pm
@@ -3,13 +3,13 @@ use IO::Capture::Simple;
 
 unit module Test::IO::Capture;
 
-sub prints-stdout-ok (Callable $code, Str $expected, $reason = '')
+sub prints-stdout-ok (Callable $code, Str() $expected, $reason = '')
 is export {
     my $out = capture_stdout $code;
     is $out, $expected, $reason;
 }
 
-sub prints-stderr-ok (Callable $code, Str $expected, $reason = '')
+sub prints-stderr-ok (Callable $code, Str() $expected, $reason = '')
 is export {
     my $out = capture_stderr $code;
     is $out, $expected, $reason;