Файл: concrete5.7.5.6/concrete/js/ace/snippets/perl.js
Строк: 536
<?php
define("ace/snippets/perl",["require","exports","module"],function(e,t,n){t.snippetText="# #!/usr/bin/perlnsnippet #!n #!/usr/bin/env perlnn# Hash Pointernsnippet .n =>n# Functionnsnippet subn sub ${1:function_name} {n ${2:#body ...}n }n# Conditionalnsnippet ifn if (${1}) {n ${2:# body...}n }n# Conditional if..elsensnippet ifen if (${1}) {n ${2:# body...}n }n else {n ${3:# else...}n }n# Conditional if..elsif..elsensnippet ifeen if (${1}) {n ${2:# body...}n }n elsif (${3}) {n ${4:# elsif...}n }n else {n ${5:# else...}n }n# Conditional One-linensnippet xifn ${1:expression} if ${2:condition};${3}n# Unless conditionalnsnippet unlessn unless (${1}) {n ${2:# body...}n }n# Unless conditional One-linensnippet xunlessn ${1:expression} unless ${2:condition};${3}n# Try/Exceptnsnippet evaln local $@;n eval {n ${1:# do something risky...}n };n if (my $e = $@) {n ${2:# handle failure...}n }n# While Loopnsnippet whn while (${1}) {n ${2:# body...}n }n# While Loop One-linensnippet xwhn ${1:expression} while ${2:condition};${3}n# C-style For Loopnsnippet cforn for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {n ${4:# body...}n }n# For loop one-linensnippet xforn ${1:expression} for @${2:array};${3}n# Foreach Loopnsnippet forn foreach my $${1:x} (@${2:array}) {n ${3:# body...}n }n# Foreach Loop One-linensnippet foren ${1:expression} foreach @${2:array};${3}n# Packagensnippet packagen package ${1:`substitute(Filename('', 'Page Title'), '^.', '\u&', '')`};nn ${2}nn 1;nn __END__n# Package syntax perl >= 5.14nsnippet packagev514n package ${1:`substitute(Filename('', 'Page Title'), '^.', '\u&', '')`} ${2:0.99};nn ${3}nn 1;nn __END__n#moosensnippet moosen use Moose;n use namespace::autoclean;n ${1:#}BEGIN {extends '${2:ParentClass}'};nn ${3}n# parentnsnippet parentn use parent qw(${1:Parent Class});n# Read Filensnippet slurpn my $${1:var} = do { local $/; open my $file, '<', "${2:file}"; <$file> };n ${3}n# strict warningsnsnippet strwarn use strict;n use warnings;n# older versioning with perlcritic bypassnsnippet versn ## no criticn our $VERSION = '${1:version}';n eval $VERSION;n ## use criticn# new 'switch' like featurensnippet switchn use feature 'switch';nn# Anonymous subroutinensnippet asubn sub {n ${1:# body }n }nnnn# Begin blocknsnippet beginn BEGIN {n ${1:# begin body}n }nn# call package function with some parameternsnippet pkgmvn __PACKAGE__->${1:package_method}(${2:var})nn# call package function without a parameternsnippet pkgmn __PACKAGE__->${1:package_method}()nn# call package "get_" function without a parameternsnippet pkgetn __PACKAGE__->get_${1:package_method}()nn# call package function with a parameternsnippet pkgetvn __PACKAGE__->get_${1:package_method}(${2:var})nn# complex regexnsnippet qrxn qr/n ${1:regex}n /xmsnn#simpler regexnsnippet qr/n qr/${1:regex}/xnn#givennsnippet givenn given ($${1:var}) {n ${2:# cases}n ${3:# default}n }nn# switch-like casensnippet whenn when (${1:case}) {n ${2:# body}n }nn# hash slicensnippet hslicen @{ ${1:hash} }{ ${2:array} }nnn# mapnsnippet mapn map { ${2: body } } ${1: @array } ;nnnn# Pod stubnsnippet ppodn =head1 NAMEnn ${1:ClassName} - ${2:ShortDesc}nn =head1 SYNOPSISnn use $1;nn ${3:# synopsis...}nn =head1 DESCRIPTIONnn ${4:# longer description...}nnn =head1 INTERFACEnnn =head1 DEPENDENCIESnnn =head1 SEE ALSOnnn# Heading for a subroutine stubnsnippet psubn =head2 ${1:MethodName}nn ${2:Summary....}nn# Heading for inline subroutine podnsnippet psubin =head2 ${1:MethodName}nn ${2:Summary...}nnn =cutn# inline documented subroutinensnippet subpodn =head2 $1nn Summary of $1nn =cutnn sub ${1:subroutine_name} {n ${2:# body...}n }n# Subroutine signaturensnippet pargn =over 2nn =itemn Argumentsnnn =over 3nn =itemn C<${1:DataStructure}>nn ${2:Sample}nnn =backnnn =itemn Returnnn =over 3nnn =itemn C<${3:...return data}>nnn =backnnn =backnnnn# Moose hasnsnippet hasn has ${1:attribute} => (n is => '${2:ro|rw}',n isa => '${3:Str|Int|HashRef|ArrayRef|etc}',n default => sub {n ${4:defaultvalue}n },n ${5:# other attributes}n );nnn# overridensnippet overriden override ${1:attribute} => sub {n ${2:# my $self = shift;};n ${3:# my ($self, $args) = @_;};n };nnn# use test classesnsnippet tusen use Test::More;n use Test::Deep; # (); # uncomment to stop prototype errorsn use Test::Exception;nn# local test libnsnippet tlibn use lib qw{ ./t/lib };nn#test methodsnsnippet tmethsn $ENV{TEST_METHOD} = '${1:regex}';nn# runtestclassnsnippet trunnern use ${1:test_class};n $1->runtests();nn# Test::Class-style testnsnippet tsubn sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) {n my $self = shift;n ${4:# body}nn }nn# Test::Routine-style testnsnippet trsubn test ${1:test_name} => { description => '${2:Description of test.}'} => sub {n my ($self) = @_;n ${3:# test code}n };nn#prep test methodnsnippet tprepn sub prep${1:number}_${2:test_case} :Test(startup) {n my $self = shift;n ${4:# body}n }nn# cause failures to print stack tracensnippet debug_tracen use Carp; # 'verbose';n # cloak "die"n # warn "warning"n $SIG{'__DIE__'} = sub {n require Carp; Carp::confessn };nn",t.scope="perl"})
?>