Toby Inkster avatar Toby Inkster committed 4e3a1ad

failing test (RT#90096)

Comments (0)

Files changed (1)

+=pod
+
+=encoding utf-8
+
+=head1 PURPOSE
+
+Make sure that L<Type::Params> localizes C<< $_ >>.
+
+=head1 SEE ALSO
+
+L<https://rt.cpan.org/Ticket/Display.html?id=90096>.
+
+=head1 AUTHOR
+
+Samuel Kaufman E<lt>skaufman@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2013 by Samuel Kaufman.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+use strict;
+use warnings FATAL=> 'all';
+
+use Test::More tests => 3;
+use Type::Params qw[ compile ];
+use Types::Standard qw[ slurpy Dict Bool ];
+
+my $check = compile slurpy Dict [ with_connection => Bool ];
+
+for (qw[ 1 2 3 ]) {  # $_ is read-only in here
+	ok $check->( with_connection => 1 );
+}
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.