Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^3: The Most Essential Perl Development Tools Today

by tobyink (Abbot)
on Jan 04, 2013 at 10:56 UTC ( #1011608=note: print w/ replies, xml ) Need Help??


in reply to Re^2: The Most Essential Perl Development Tools Today
in thread The Most Essential Perl Development Tools Today

Nothing especially earth-shattering...

  • Added a few of the new post-5.12 keywords to the syntax highlighter (fc, UNITCHECK, etc), and also some Moose-related keywords.
  • Added .psgi and .t extensions to the list of file names which the Perl syntax highlighter is automatically applied to.
  • Changed the "Go" command to execute perl via my shell rather than directly. This means that it will respect $PATH, and thus use whatever perl is currently selected by perlbrew, rather than system perl.
  • Added a command which runs p5u ap -v (see P5U). This allows me to run my test suite by just hitting Ctrl+1 because P5U takes care of chdiring into the correct directory.

Here are the general and Perl-specific parts from my .SciTEUser.properties file:

# # GENERAL # position.width=700 magnification=0 buffers=10 split.vertical=0 tabbar.visible=1 tabbar.hide.one=1 tabbar.multiline=1 toolbar.visible=0 statusbar.visible=1 line.margin.visible=1 use.monospaced=1 edge.mode=0 save.recent=1 selection.back=#3355ff selection.alpha=96 menukey.file.exit=<control>Q code.page=65001 # # TABS # tabsize=3 indent.size=3 use.tabs=1 indent.automatic=1 indent.opening=0 indent.closing=0 # # ASPELL # command.name.9.*=Inline Spellcheck command.9.*=inline_aspell $(FilePath) command.subsystem.9.*=3 command.mode.9.*=savebefore:yes ext.lua.startup.script=$(SciteUserHome)/.SciTE/aspell.lua #command.name.9.*=aspell #command.9.*=/usr/bin/gnome-terminal -t 'aspell' -e "/usr/bin/aspell c +heck $(FileDir)/$(FileNameExt)" #command.subsystem.9.*=0 #command.is.filter.9.*=1 # # PERL # file.patterns.perl=*.pl;*.pm;*.pod;*.PL;*.t;*.psgi api.$(file.patterns.perl)=/home/tai/.SciTE/perl.api command.compile.$(file.patterns.perl)=tcsh -c "perl -c -w $(FileNameEx +t)" command.go.$(file.patterns.perl)=tcsh -c "perl $(FileNameExt)" command.name.0.$(file.patterns.perl)=Lint command.0.$(file.patterns.perl)=tcsh -c "perl -MO=Lint,all $(FileNameE +xt)" command.name.1.$(file.patterns.perl)=Test Suite command.1.$(file.patterns.perl)=p5u ap -v command.name.2.$(file.patterns.perl)=Code Profiler command.2.$(file.patterns.perl)=tcsh -c "perl -d:DProf $(FileNameExt)" command.name.3.$(file.patterns.perl)=Profiler Parser command.3.$(file.patterns.perl)=tcsh -c "dprofpp $(FileDir)/tmon.out" keywords.$(file.patterns.perl)=\ NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD \ BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept \ alarm and atan2 bind binmode bless caller chdir chmod chomp chop \ chown chr chroot close closedir cmp connect continue cos crypt \ dbmclose dbmopen defined delete die do dump each else elsif endgrent \ endhostent endnetent endprotoent endpwent endservent eof eq eval \ exec exists exit exp fcntl fileno flock for foreach fork format \ formline ge getc getgrent getgrgid getgrnam gethostbyaddr gethostbynam +e \ gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername \ getpgrp getppid getpriority getprotobyname getprotobynumber getprotoen +t \ getpwent getpwnam getpwuid getservbyname getservbyport getservent \ getsockname getsockopt glob gmtime goto grep gt hex if index \ int ioctl join keys kill last lc lcfirst le length link listen \ local localtime lock log lstat lt map mkdir msgctl msgget msgrcv \ msgsnd my ne next no not oct open opendir or ord our pack package \ pipe pop pos print printf prototype push quotemeta qu \ rand read readdir readline readlink readpipe recv redo \ ref rename require reset return reverse rewinddir rindex rmdir \ scalar seek seekdir select semctl semget semop send setgrent \ sethostent setnetent setpgrp setpriority setprotoent setpwent \ setservent setsockopt shift shmctl shmget shmread shmwrite shutdown \ sin sleep socket socketpair sort splice split sprintf sqrt srand \ stat study sub substr symlink syscall sysopen sysread sysseek \ system syswrite tell telldir tie tied time times truncate \ uc ucfirst umask undef unless unlink unpack unshift untie until \ use utime values vec wait waitpid wantarray warn while write \ xor \ given when default say state UNITCHECK fc \ class role with method extends before after around override augment \ has requires excludes blessed is returns action handle func \ guard build preprocess postprocess interface exception try catch
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'


Comment on Re^3: The Most Essential Perl Development Tools Today
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1011608]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2015-07-29 01:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls