Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
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 examining the Monastery: (11)
As of 2014-12-19 18:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (91 votes), past polls