kfly8 · April 2, 2014 02:58 · kfly8 · Apr 2, 2014
diff --git a/gistfile1.pl b/gistfile1.pl
 #!/usr/bin/env perl
 use 5.10.0;
 use strict;
 use warnings;

 use Test::More;

 sub hoge { join ',', ('?') x @_ }

 is hoge(qw/1 3 4 5/), '?,?,?,?';

 done_testing;
	#!/usr/bin/env perl
	use 5.10.0;
	use strict;
	use warnings;

	use Test::More;

	sub hoge { join ',', ('?') x @_ }

	is hoge(qw/1 3 4 5/), '?,?,?,?';

	done_testing;
No results found