--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/graal/com.oracle.truffle.ruby.runtime/src/com/oracle/truffle/ruby/runtime/debug/RubyProcBeforeLineProbe.java	Wed Jan 08 14:03:36 2014 -0800
@@ -0,0 +1,40 @@
+/*
+ * Copyright (c) 2013, 2014 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package com.oracle.truffle.ruby.runtime.debug;
+
+import com.oracle.truffle.api.frame.*;
+import com.oracle.truffle.api.nodes.*;
+import com.oracle.truffle.api.source.*;
+import com.oracle.truffle.ruby.runtime.*;
+import com.oracle.truffle.ruby.runtime.core.*;
+
+/**
+ * A probe for instrumenting a Ruby program with a Ruby procedure to run before a calling a child
+ * node at a line.
+ */
+public final class RubyProcBeforeLineProbe extends RubyLineProbe {
+
+    private final RubyProc proc;
+
+    public RubyProcBeforeLineProbe(RubyContext context, SourceLineLocation location, RubyProc proc) {
+        super(context, location, false);
+        this.proc = proc;
+    }
+
+    @Override
+    public void enter(Node astNode, VirtualFrame frame) {
+        proc.call(frame.pack());
+    }
+
+    public RubyProc getProc() {
+        return proc;
+    }
+
+}