# -*- mode: snippet -*-
# name: caller;
# key: caller
# --
my (${1:$package}, ${2:$filename}, ${3:$line}) = caller;
$0

##</code><code>##

# -*- mode: snippet -*-
# name: caller(LEVEL)
# key: caller
# --
my (${2:$package}, ${3:$filename}, ${4:$line}, ${5:$subroutine}, ${6:$hasargs},
${7:$wantarray}, ${8:$evaltext}, ${9:$is}_require, ${10:$hints}, ${11:$bitmask},
${12:$hinthash}) = caller(${1:$LEVEL});
$0

##</code><code>##

# -*- mode: snippet -*-
# name: splice @ARR ,OFFSET ,LENGTH ,LIST
# key: splice
# --
splice @${1:ARR} ,${2:OFFSET} ,${3:LENGTH} , ${4:LIST...};