4 (defun sepia-snippet-abbrev ()
5 (require 'snippet nil t
)
6 (when (featurep 'snippet
)
7 (snippet-with-abbrev-table
8 'sepia-mode-abbrev-table
9 ("else" .
"else {\n$>$.\n}$>")
10 ("elsif" .
"elsif ($${TEST}) {\n$>$.\n}$>")
11 ("for" .
"for ($${LIST}) {\n$>$.\n}$>")
12 ("foreach" .
"foreach my $${VAR} ($${LIST}) {\n$>$.\n}$>")
13 ("formy" .
"for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
14 ("given" .
"given ($${VAR}) {\n$>$.\n}$>")
15 ("when" .
"when ($${TEST}) {\n$>$.\n}$>")
16 ("if" .
"if ($${TEST}) {\n$>$.\n}$>")
17 ("sub" .
"sub $${NAME}\n{\n$>$.\n}$>")
18 ("unless" .
"unless ($${TEST}) {\n$>$.\n}$>")
19 ("until" .
"until ($${TEST}) {\n$>$.\n}$>")
20 ("while" .
"while ($${TEST}) {\n$>$.\n}$>")
21 ("whilekv" .
"while (my ($k, $v) = each $${HASH}) {\n$>$.\n}$>"))))
23 (add-hook 'sepia-mode-hook
'sepia-snippet-abbrev
)