Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

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 file:

# # GENERAL # position.width=700 magnification=0 buffers=10 split.vertical=0 tabbar.visible=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 # # TABS # tabsize=3 indent.size=3 use.tabs=1 indent.automatic=1 indent.opening=0 indent.closing=0 # # ASPELL #*=Inline Spellcheck command.9.*=inline_aspell $(FilePath) command.subsystem.9.*=3 command.mode.9.*=savebefore:yes ext.lua.startup.script=$(SciteUserHome)/.SciTE/aspell.lua*=aspell #command.9.*=/usr/bin/gnome-terminal -t 'aspell' -e "/usr/bin/aspell c +heck $(FileDir)/$(FileNameExt)" #command.subsystem.9.*=0*=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)"$(file.patterns.perl)=Lint command.0.$(file.patterns.perl)=tcsh -c "perl -MO=Lint,all $(FileNameE +xt)"$(file.patterns.perl)=Test Suite command.1.$(file.patterns.perl)=p5u ap -v$(file.patterns.perl)=Code Profiler command.2.$(file.patterns.perl)=tcsh -c "perl -d:DProf $(FileNameExt)"$(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'

In reply to Re^3: The Most Essential Perl Development Tools Today by tobyink
in thread The Most Essential Perl Development Tools Today by Tommy

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    [marto]: I'm sure this comes as a surprise to no one
    [LanX]: ?
    [marto]: poorly thought out non products, sold to parents as "fun" things for kids to have, while providing "security" features (track your kid over the interwebs)
    [LanX]: oh didn't see the link, poor contrast
    [marto]: "Through a few simple steps, a stranger can take control of the watch and track, eavesdrop on and communicate with the child. They will be able to track the child as it moves or make it look like the child is somewhere it is not..." and so on
    [LanX]: so Strangers can easily seize control of the children
    LanX needs a smartwatch for his boss ...

    How do I use this? | Other CB clients
    Other Users?
    Others browsing the Monastery: (13)
    As of 2017-10-20 14:11 GMT
    Find Nodes?
      Voting Booth?
      My fridge is mostly full of:

      Results (263 votes). Check out past polls.