Skip to content
Browse files

Overload "<>" operator in test object to match new usage

  • Loading branch information...
1 parent e1690b4 commit d64fb88ddea1843c4a6271e57b28d5ff0b223a08 @rwstauner committed Oct 12, 2010
Showing with 3 additions and 0 deletions.
  1. +3 −0 t/01-generic.t
View
3 t/01-generic.t
@@ -4,6 +4,9 @@ plan tests => 4 * $times;
{
package TestEcho;
+ use overload
+ 'bool' => sub { $_[0] }, # allow ||= operator
+ '<>' => \&getline; # emulate IO
# echo server for easy testing
sub new { bless [], $_[0]; }

0 comments on commit d64fb88

Please sign in to comment.
Something went wrong with that request. Please try again.