From 93dd811c1233c3e9d28d92a56166436a81c3e854 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 18 Aug 2012 15:08:00 -0500
Subject: first implementation

---
 lib/Try.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'lib/Try.pm')

diff --git a/lib/Try.pm b/lib/Try.pm
index e69de29..d85d497 100644
--- a/lib/Try.pm
+++ b/lib/Try.pm
@@ -0,0 +1,28 @@
+package Try;
+use strict;
+use warnings;
+# ABSTRACT: nicer exception handling syntax
+
+use Devel::CallParser;
+use XSLoader;
+
+XSLoader::load(
+    __PACKAGE__,
+    exists $Try::{VERSION} ? ${ $Try::{VERSION} } : (),
+);
+
+use Exporter 'import';
+our @EXPORT = ('try');
+
+use Try::Tiny ();
+
+sub try {
+    my ($try, $catch, $finally) = @_;
+    &Try::Tiny::try(
+        $try,
+        ($catch   ? (&Try::Tiny::catch($catch))     : ()),
+        ($finally ? (&Try::Tiny::finally($finally)) : ()),
+    );
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf