blob: fb2dfc629cef2a49789e7a6bc2ac3a5dc91ec9d8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
package smartmatch::engine::rjbs;
use strict;
use warnings;
use overload ();
use Scalar::Util qw(blessed reftype);
sub match {
my ($a, $b) = @_;
if (!defined($b)) {
return !defined($a);
}
elsif (blessed($b) && my $overload = overload::Method($b, '~~')) {
return $b->$overload($a, 1);
}
elsif (reftype($b) eq 'REGEXP') {
return $a =~ $b;
}
elsif (blessed($b) && my $overload = overload::Method($b, '=~')) {
return $a =~ $b;
}
elsif (!blessed($b) && reftype($b) eq 'CODE') {
return $b->($a);
}
else {
die "invalid smart match: $a ~~ $b";
}
}
1;
|