Initial implementation with one simple test.

colomon · Jun 2, 2013 · f51f3f8 · f51f3f8
1 parent fa81aac
commit f51f3f8
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/lib/Phaser/ATEXIT.pm b/lib/Phaser/ATEXIT.pm
@@ -0,0 +1,7 @@
+module Phaser {
+    sub ATEXIT(&code) is export {
+        state @blocks;
+        @blocks.push(&code);
+        END { for @blocks.reverse -> &code { &code() } }
+    }
+}
diff --git a/t/01.t b/t/01.t
@@ -0,0 +1,6 @@
+use Phaser::ATEXIT;
+use Test;
+
+ATEXIT { done }
+ATEXIT { ok True, "Run at exit" }
+ok True, "We are here!";