diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-08 23:01:18 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-08 23:01:18 +0200 |
| commit | d0b243e39ca09d7da156b4027255b58fa0a84810 (patch) | |
| tree | 59798ad5c1a916fab017ee69188705e88f22d51b /t/op/smartmatch.t | |
| parent | 365c4e3d7660763689bc62ead0a9a495a26bcad7 (diff) | |
| download | perl-d0b243e39ca09d7da156b4027255b58fa0a84810.tar.gz | |
Document what to do with object on the left and add some TODO tests for that
Diffstat (limited to 't/op/smartmatch.t')
| -rw-r--r-- | t/op/smartmatch.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index 75c0ec08e7..8047451045 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -200,6 +200,8 @@ __DATA__ qr// \&bar ! [1] \&foo ! {a=>1} \&foo + $obj sub { ref $_[0] =~ /NoOverload/ } TODO + $ov_obj sub { ref $_[0] =~ /CopyOverload/ } TODO # empty stuff matches, because the sub is never called: [] \&foo {} \&foo @@ -312,6 +314,10 @@ __DATA__ = \@nums @tied_nums = @nums @tied_nums +# - an object +! $obj @fooormore + $obj [sub{ref shift}] TODO + # - works with lists instead of arrays "foo" qw(foo bar) TODO "foo" ('foo','bar') TODO |