view release on metacpan or  search on metacpan

share/assets/dash_core_components/async~plotlyjs.js  view on Meta::CPAN

(window.webpackJsonpdash_core_components=window.webpackJsonpdash_core_components||[]).push([[5],{685:function(t,e){!function(r){"object"==typeof e&&void 0!==t?t.exports=r():"function"==typeof define&&define.amd?define([],r):("undefined"!=typeof windo...

 view release on metacpan or  search on metacpan

lib/Data/Annotation/Traverse.pod  view on Meta::CPAN

escape with a backslash. Also, if you want to insert a literal
backslash, you have to prepend it with another backslash. In general,
every time you put a backslash, the following character is taken as-is
and the escaping backslash is tossed away. So the following:

"\'\a\ \v\e\r\y\ \s\t\r\a\n\g\e\ \k\e\y\'"

is interpreted as:

'a very strange key'

 view release on metacpan or  search on metacpan

t/globtest.t  view on Meta::CPAN

my $GLOB1 = do{ require Symbol; Symbol::gensym };
EXPECT

    #local $Data::Dump::Streamer::DEBUG=1;

    $x= \gensym;               #
    *$$x= $x;
    *$$x= $names;
    *$$x= { Thank => '[ysth]', Grr => bless \gensym, 'Foo' };

    #Devel::Peek::Dump $x

    same(scalar $o->Data($x)->Out(), <<'EXPECT', "Symbol 4", $o);
my $REF1 = \do{ require Symbol; Symbol::gensym };

 view release on metacpan or  search on metacpan

lib/Data/Dumper/Interp.pm  view on Meta::CPAN

    my $minrep_m1 = $_[0] - 1;
    my $singlechar_restr = "[^\\\\${COND_LB}${COND_RB}${COND_MULT}]";

    # Special case a string of nul represented as \n\n\n...\00n (n=0..7)
    # D::D generates this to avoid ambiguity if a digit follows
    s<( (\\([0-7])){$minrep_m1,}\\00\g{-1} )>
     < $COND_LB."${2}${COND_MULT}".((length($1)-2)/length($2)).$COND_RB >xge;

    # \0 \1 ... if there is no digit following, which makes it ambiguous
    s<( (\\\d) \g{-1}{$minrep_m1,} ) (?![0-7]) >
     < $COND_LB."${2}${COND_MULT}".(length($1)/length($2)).$COND_RB >xge;

    # \x for almost any x besides a digit or \
    s<( ($singlechar_restr | \\\D | \\[0-3][0-7][0-7] | \\x\{[^\{\}]+\})
        \g{-1}{$minrep_m1,} )
     >
     < $COND_LB."${2}${COND_MULT}".(length($1)/length($2)).$COND_RB >xge;
  }
}

 view release on metacpan or  search on metacpan

t/transpose-validation-classes.t  view on Meta::CPAN

                "https://google.com",
                "https://this.doesnt-exists.but-is-valid.co.gov");

my @badurls = ("http://this@.doesnt@-exists.but-is-valid.co.gov",
               "__http://__",
               "http:\\google.com",
               "htp://google.com",
               "http:/google.com",
               "https:/google.com",
              );

 view release on metacpan or  search on metacpan

t/data/libexec/git.bat  view on Meta::CPAN

@echo off

perl "%~dp0\git" %*

 view release on metacpan or  search on metacpan

lib/Devel/Trepan/CmdProcessor/Command/Help/filename.pod  view on Meta::CPAN

examples:

   gcd.pl       => gcd.pl
   /tmp/gcd.pl  =>  /tmp/gcd.pl
   C\:gcd.pl    =>  C:gcd.pl
   C\:\gcd.pl   =>  C:\gcd.pl
   C\:\\gcd.pl  =>  C:\gcd.pl  # Note: double slash not needed
   \\new.pl     =>  \new.pl     # Note: double slash, or filename has newline
   my\ file.pl  =>  my file.pl


The quoted string is useful if you have a file name that contains