Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 404a66ce5f
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (19 sloc) 0.439 kB
use strict;
use warnings;
use 5.010001;
use Test::More 'no_plan';
{
{
package Smartmatch::Recorder;
use overload
'~~' => sub { our @Recorded = @_; return 1 },
fallback => 1;
}
my $x = bless {} => 'Smartmatch::Recorder';
ok(undef ~~ $x, "everything matches Smartmatch::Recorder obj");
is_deeply(
\@Smartmatch::Recorder::Recorded,
[ $x, undef, 1],
"just the expected args to our OL sub"
);
}
Jump to Line
Something went wrong with that request. Please try again.