From f4addf38033fd2c44e41646a7ae2a57fdd03a7f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maximilian=20Ga=C3=9F?= <mxey@mxey.net>
Date: Mon, 23 Dec 2013 16:28:42 +0100
Subject: [PATCH 1/2] Add method snippet

---
 Snippets/Method.tmSnippet | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 Snippets/Method.tmSnippet

diff --git a/Snippets/Method.tmSnippet b/Snippets/Method.tmSnippet
new file mode 100644
index 0000000..1937852
--- /dev/null
+++ b/Snippets/Method.tmSnippet
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>content</key>
+	<string>sub ${1:function_name} {
+    my (\$self${2:}) = @_;
+    ${3:# body...}
+}
+</string>
+	<key>disableAutoIndent</key>
+	<true/>
+	<key>name</key>
+	<string>Method</string>
+	<key>scope</key>
+	<string>source.perl</string>
+	<key>tabTrigger</key>
+	<string>meth</string>
+	<key>uuid</key>
+	<string>76F6C52A-3C5B-40C7-AD15-231DC97A0023</string>
+</dict>
+</plist>

From 3fc17157052056858900280d38a926f194470fc4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maximilian=20Ga=C3=9F?= <mxey@mxey.net>
Date: Mon, 23 Dec 2013 16:28:57 +0100
Subject: [PATCH 2/2] Add has snippet (Moose style syntax)

---
 Snippets/has.tmSnippet | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 Snippets/has.tmSnippet

diff --git a/Snippets/has.tmSnippet b/Snippets/has.tmSnippet
new file mode 100644
index 0000000..5771b16
--- /dev/null
+++ b/Snippets/has.tmSnippet
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>content</key>
+	<string>has ${1:name} =&gt; (
+    is =&gt; '${2:ro}',
+    isa =&gt; '${3:type}',
+);
+</string>
+	<key>disableAutoIndent</key>
+	<true/>
+	<key>name</key>
+	<string>has</string>
+	<key>scope</key>
+	<string>source.perl</string>
+	<key>tabTrigger</key>
+	<string>has</string>
+	<key>uuid</key>
+	<string>8EC3DA9E-9CDA-4D4B-B609-80D669B5D782</string>
+</dict>
+</plist>