4 (defun sepia-snippet-abbrev ()
5 (snippet-with-abbrev-table
6 'sepia-mode-abbrev-table
7 ("for" .
"for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
8 ("foreach" .
"foreach my $${VAR} ($${LIST}) {\n$>$.\n}$>")
9 ("if" .
"if ($${TEST}) {\n$>$.\n}$>")
10 ("elsif" .
"elsif ($${TEST}) {\n$>$.\n}$>")
11 ("else" .
"else {\n$>$.\n}$>")
12 ("unless" .
"unless ($${TEST}) {\n$>$.\n}$>")
13 ("while" .
"while ($${TEST}) {\n$>$.\n}$>")
14 ("until" .
"until ($${TEST}) {\n$>$.\n}$>")
15 ("for" .
"for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
16 ("sub" .
"sub $${NAME}\n{\n$>$.\n}$>")))
18 (add-hook 'sepia-mode-hook
'sepia-snippet-abbrev
)