Perl-Tidy

 view release on metacpan or  search on metacpan

lib/Perl/Tidy/Tokenizer.pm  view on Meta::CPAN

      elsif          endgrent         endhostent    endnetent
      endprotoent    endpwent         endservent    eof
      eval           evalbytes        exec          exists
      exit           exp              fc            fcntl
      fileno         flock            fork          format
      formline       getc             getgrent      getgrgid
      getgrnam       gethostbyaddr    gethostbyname gethostent
      getlogin       getnetbyaddr     getnetbyname  getnetent
      getpeername    getpgrp          getppid       getpriority
      getprotobyname getprotobynumber getprotoent   getpwent
      getpwnam       getpwuid         getservbyname getservbyport
      getservent     getsockname      getsockopt    given
      glob           gmtime           goto          grep
      hex            index            int           ioctl
      join           keys             kill          last
      lc             lcfirst          length        link
      listen         local            localtime     lock
      log            lstat            m             map
      mkdir          msgctl           msgget        msgrcv
      msgsnd         my               next          no
      not            oct              open          opendir

lib/Perl/Tidy/Tokenizer.pm  view on Meta::CPAN

      cmp              connect       continue     cos
      crypt            dbmclose      dbmopen      defined
      delete           die           dump         each
      else             elsif         eof          eq
      evalbytes        exec          exists       exit
      exp              fc            fcntl        fileno
      flock            for           foreach      formline
      ge               getc          getgrgid     getgrnam
      gethostbyaddr    gethostbyname getnetbyaddr getnetbyname
      getpeername      getpgrp       getpriority  getprotobyname
      getprotobynumber getpwnam      getpwuid     getservbyname
      getservbyport    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

t/snippets10.t  view on Meta::CPAN

# This will walk to the right if it is the first line of a file.

     ov_method mycan( $package, '(""' ),       $package
  or ov_method mycan( $package, '(0+' ),       $package
  or ov_method mycan( $package, '(bool' ),     $package
  or ov_method mycan( $package, '(nomethod' ), $package;

----------

        'slashslash' => <<'----------',
$home = $ENV{HOME} // $ENV{LOGDIR} // ( getpwuid($<) )[7]
  // die "You're homeless!\n";
defined( $x // $y );
$version = 'v' . join '.', map ord, split //, $version->PV;
foreach ( split( //, $lets ) )  { }
foreach ( split( //, $input ) ) { }
'xyz' =~ //;
----------

        'smart' => <<'----------',
\&foo !~~ \&foo;

t/snippets10.t  view on Meta::CPAN

  or ov_method mycan( $package, '(bool' ),     $package
  or ov_method mycan( $package, '(nomethod' ), $package;

#6...........
        },

        'slashslash.def' => {
            source => "slashslash",
            params => "def",
            expect => <<'#7...........',
$home = $ENV{HOME} // $ENV{LOGDIR} // ( getpwuid($<) )[7]
  // die "You're homeless!\n";
defined( $x // $y );
$version = 'v' . join '.', map ord, split //, $version->PV;
foreach ( split( //, $lets ) )  { }
foreach ( split( //, $input ) ) { }
'xyz' =~ //;
#7...........
        },

        'smart.def' => {