2 files changed, 15 insertions, 62 deletions
diff --git a/lib/smartmatch/engine/core.pm b/lib/smartmatch/engine/core.pm
index 410c983..948152f 100644
--- a/lib/smartmatch/engine/core.pm
+++ b/lib/smartmatch/engine/core.pm
@@ -2,6 +2,21 @@ package smartmatch::engine::core;
 use strict;
 use warnings;
 use 5.010;
+# ABSTRACT: default smartmatch implementation from 5.10 - 5.14
+
+use parent 'DynaLoader';
+
+sub dl_load_flags { 0x01 }
+
+__PACKAGE__->bootstrap(
+    # we need to be careful not to touch $VERSION at compile time, otherwise
+    # DynaLoader will assume it's set and check against it, which will cause
+    # fail when being run in the checkout without dzil having set the actual
+    # $VERSION
+    exists $smartmatch::engine::core::{VERSION}
+        ? ${ $smartmatch::engine::core::{VERSION} } : (),
+);
+smartmatch::engine::core::init(__PACKAGE__->can('match'));
 
 use B;
 use Carp qw(croak);
diff --git a/lib/smartmatch/engine/rjbs.pm b/lib/smartmatch/engine/rjbs.pm
deleted file mode 100644
index da40998..0000000
--- a/lib/smartmatch/engine/rjbs.pm
+++ /dev/null
@@ -1,62 +0,0 @@
-package smartmatch::engine::rjbs;
-use strict;
-use warnings;
-
-use overload ();
-use Scalar::Util qw(blessed reftype);
-
-sub type {
-    my ($thing) = @_;
-
-    if (!defined($thing)) {
-        return 'undef';
-    }
-    elsif (!ref($thing)) {
-        return 'unknown non-ref';
-    }
-    elsif (reftype($thing) eq 'REGEXP') {
-        return 'Regex';
-    }
-    elsif (blessed($thing)) {
-        if (overload::Method($thing, '~~')) {
-            return 'Overloaded';
-        }
-        elsif (overload::Method($thing, 'qr')) {
-            return 'Regex';
-        }
-        else {
-            return 'unknown object';
-        }
-    }
-    elsif (reftype($thing) eq 'CODE') {
-        return 'Code';
-    }
-    else {
-        return 'unknown';
-    }
-}
-
-sub match {
-    my ($a, $b) = @_;
-
-    if (type($b) eq 'undef') {
-        return !defined($a);
-    }
-    elsif (type($b) eq 'Overloaded') {
-        my $overload = overload::Method($b, '~~');
-        return $b->$overload($a, 1);
-    }
-    elsif (type($b) eq 'Regex') {
-        return $a =~ $b;
-    }
-    elsif (type($b) eq 'Code') {
-        return $b->($a);
-    }
-    else {
-        $a //= 'undef';
-        $b //= 'undef';
-        die "invalid smart match: $a ~~ $b";
-    }
-}
-
-1;