diff --git a/src/lib/Hydra/Component/ToJSON.pm b/src/lib/Hydra/Component/ToJSON.pm
index e8f439de..727a5b1f 100644
--- a/src/lib/Hydra/Component/ToJSON.pm
+++ b/src/lib/Hydra/Component/ToJSON.pm
@@ -10,6 +10,10 @@ use JSON;
 sub TO_JSON {
     my $self = shift;
 
+    if ($self->can("as_json")) {
+        return $self->as_json();
+    }
+
     my $hint = $self->json_hint;
 
     my %json = ();