mb
3 results

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

  - remove some documents
  - created by INABA Hitoshi

0.37  2022-01-18 00:00:00
  - supports iterating over multiple values at a time: for my ($key, $value) (%hash) { ... }
  - supports iterating over multiple values at a time: for my ($left, $right, $gripping) (@moties) { ... }
  - supports defer { block }
  - created by INABA Hitoshi

0.36  2021-10-30 00:00:00
  - supports /[]/xx, m/[]/xx, qr/[]/xx, s/[]//xx, split /[]/xx, and split m/[]/xx
  - created by INABA Hitoshi

0.35  2021-10-20 00:00:00
  - supports signatures
  - created by INABA Hitoshi

0.34  2021-10-19 00:00:00
  - supports opendir(my $dir, ...)
  - created by INABA Hitoshi

lib/mb.pm  view on Meta::CPAN 


            # /i modifier
            if ($modifier_i) {
                $parsed .= sprintf('{@{[mb::_ignorecase(qr%s%s)]}}%s', $regexp, $modifier_not_cegir, $modifier_cegr);
            }
            else {
                $parsed .= sprintf('{@{[' .            'qr%s%s ]}}%s', $regexp, $modifier_not_cegir, $modifier_cegr);
            }
        }

        # split m/^/   --> mb::_split qr/^/m
        # split m/.../ --> mb::_split qr/.../
        elsif (/\G ( m | qr ) \b /xmsgc) {
            $parsed .= "qr";

            if    (/\G ( [#] )        /xmsgc) { $regexp = parse_re_endswith('m',$1);      }        # split qr#...#
            elsif (/\G ( ['] )        /xmsgc) { $regexp = parse_re_as_q_endswith('m',$1); }        # split qr'...'
            elsif (/\G ( [\(\{\[\<] ) /xmsgc) { $regexp = parse_re_balanced('m',$1);      }        # split qr{...}
            elsif (m{\G( [/] )        }xmsgc) { $regexp = parse_re_endswith('m',$1);      }        # split qr/.../
            elsif (/\G ( [:\@] )      /xmsgc) { $regexp = ('`' . quotee_of(parse_re_endswith('m',$1)) . '`'); } # split qr@...@
            elsif (/\G ( [\S] )       /xmsgc) { $regexp = parse_re_endswith('m',$1);      }        # split qr?...?
            elsif (/\G ( \s+ )        /xmsgc) { $parsed .= $1; $regexp = $1;                       # split qr SPACE ...

lib/mb.pm  view on Meta::CPAN 

  s'MBCS-regexp'MBCS-replacement'eegimosxr   s{(\G${mb::_anchor})@{[mb::_ignorecase(qr'OO-regexp'mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q'OO-replacement'}egr
  s'MBCS-regexp'MBCS-replacement'eegmosxr    s{(\G${mb::_anchor})@{[qr'OO-regexp'mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q'OO-replacement'}egr
  tr/MBCS-search/MBCS-replacement/cdsr       s{[\x00-\xFF]*}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}ser
  tr/MBCS-search/MBCS-replacement/cds        s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}se
  tr/MBCS-search/MBCS-replacement/ds         s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'dsr')}se
  y/MBCS-search/MBCS-replacement/cdsr        s{[\x00-\xFF]*}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}ser
  y/MBCS-search/MBCS-replacement/cds         s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'cdsr')}se
  y/MBCS-search/MBCS-replacement/ds          s{[\x00-\xFF]+}{mb::tr($&,q/OO-search/,q/OO-replacement/,'dsr')}se
  qr'MBCS-quotee'cgimosx                     qr{\G${mb::_anchor}@{[mb::_ignorecase(qr'OO-quotee'mosx)]}@{[mb::_m_passed()]}}cg
  qr'MBCS-quotee'cgmosx                      qr{\G${mb::_anchor}@{[qr'OO-quotee'mosx ]}@{[mb::_m_passed()]}}cg
  split m'^'                                 mb::_split qr{@{[qr'^'m ]}}
  split m'MBCS-quotee'cgimosx                mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
  split m'MBCS-quotee'cgmosx                 mb::_split qr{@{[qr'OO-quotee'mosx ]}}cg
  split qr'^'                                mb::_split qr{@{[qr'^'m ]}}
  split qr'MBCS-quotee'cgimosx               mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
  split qr'MBCS-quotee'cgmosx                mb::_split qr{@{[qr'OO-quotee'mosx ]}}cg
  mb::split qr'^'                            mb::_split qr{@{[qr'^'m ]}}
  mb::split qr'MBCS-quotee'cgimosx           mb::_split qr{@{[mb::_ignorecase(qr'OO-quotee'mosx)]}}cg
  mb::split qr'MBCS-quotee'cgmosx            mb::_split qr{@{[qr'OO-quotee'mosx ]}}cg
  qq/MBCS-quotee/                            qq/OO-quotee/
  qq'MBCS-quotee'                            qq'OO-quotee'
  qx/MBCS-quotee/                            qx/OO-quotee/
  m/MBCS-quotee/cgimosx                      m{\G${mb::_anchor}@{[mb::_ignorecase(qr/OO-quotee/mosx)]}@{[mb::_m_passed()]}}cg
  m/MBCS-quotee/cgmosx                       m{\G${mb::_anchor}@{[qr/OO-quotee/mosx ]}@{[mb::_m_passed()]}}cg
  s/MBCS-regexp/MBCS-replacement/eegimosxr   s{(\G${mb::_anchor})@{[mb::_ignorecase(qr/OO-regexp/mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q/OO-replacement/}egr
  s/MBCS-regexp/MBCS-replacement/eegmosxr    s{(\G${mb::_anchor})@{[qr/OO-regexp/mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q/OO-replacement/}egr
  qr/MBCS-quotee/cgimosx                     qr{\G${mb::_anchor}@{[mb::_ignorecase(qr/OO-quotee/mosx)]}@{[mb::_m_passed()]}}cg
  qr/MBCS-quotee/cgmosx                      qr{\G${mb::_anchor}@{[qr/OO-quotee/mosx ]}@{[mb::_m_passed()]}}cg
  split /^/                                  mb::_split qr{@{[qr/^/m ]}}
  split /MBCS-quotee/cgimosx                 mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
  split /MBCS-quotee/cgmosx                  mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
  split m/^/                                 mb::_split qr{@{[qr/^/m ]}}
  split m/MBCS-quotee/cgimosx                mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
  split m/MBCS-quotee/cgmosx                 mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
  split qr/^/                                mb::_split qr{@{[qr/^/m ]}}
  split qr/MBCS-quotee/cgimosx               mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
  split qr/MBCS-quotee/cgmosx                mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
  mb::split qr/^/                            mb::_split qr{@{[qr/^/m ]}}
  mb::split qr/MBCS-quotee/cgimosx           mb::_split qr{@{[mb::_ignorecase(qr/OO-quotee/mosx)]}}cg
  mb::split qr/MBCS-quotee/cgmosx            mb::_split qr{@{[qr/OO-quotee/mosx ]}}cg
  m:MBCS-quotee:cgimosx                      m{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
  m:MBCS-quotee:cgmosx                       m{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
  s:MBCS-regexp:MBCS-replacement:eegimosxr   s{(\G${mb::_anchor})@{[mb::_ignorecase(qr`OO-regexp`mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q:OO-replacement:}egr
  s:MBCS-regexp:MBCS-replacement:eegmosxr    s{(\G${mb::_anchor})@{[qr`OO-regexp`mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q:OO-replacement:}egr
  qr:MBCS-quotee:cgimosx                     qr{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
  qr:MBCS-quotee:cgmosx                      qr{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
  split m:^:                                 mb::_split qr{@{[qr`^`m ]}}
  split m:MBCS-quotee:cgimosx                mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  split m:MBCS-quotee:cgmosx                 mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  split qr:^:                                mb::_split qr{@{[qr`^`m ]}}
  split qr:MBCS-quotee:cgimosx               mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  split qr:MBCS-quotee:cgmosx                mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  mb::split qr:^:                            mb::_split qr{@{[qr`^`m ]}}
  mb::split qr:MBCS-quotee:cgimosx           mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  mb::split qr:MBCS-quotee:cgmosx            mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  m@MBCS-quotee@cgimosx                      m{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
  m@MBCS-quotee@cgmosx                       m{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
  s@MBCS-regexp@MBCS-replacement@eegimosxr   s{(\G${mb::_anchor})@{[mb::_ignorecase(qr`OO-regexp`mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q@OO-replacement@}egr
  s@MBCS-regexp@MBCS-replacement@eegmosxr    s{(\G${mb::_anchor})@{[qr`OO-regexp`mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q@OO-replacement@}egr
  qr@MBCS-quotee@cgimosx                     qr{\G${mb::_anchor}@{[mb::_ignorecase(qr`OO-quotee`mosx)]}@{[mb::_m_passed()]}}cg
  qr@MBCS-quotee@cgmosx                      qr{\G${mb::_anchor}@{[qr`OO-quotee`mosx ]}@{[mb::_m_passed()]}}cg
  split m@^@                                 mb::_split qr{@{[qr`^`m ]}}
  split m@MBCS-quotee@cgimosx                mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  split m@MBCS-quotee@cgmosx                 mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  split qr@^@                                mb::_split qr{@{[qr`^`m ]}}
  split qr@MBCS-quotee@cgimosx               mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  split qr@MBCS-quotee@cgmosx                mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  mb::split qr@^@                            mb::_split qr{@{[qr`^`m ]}}
  mb::split qr@MBCS-quotee@cgimosx           mb::_split qr{@{[mb::_ignorecase(qr`OO-quotee`mosx)]}}cg
  mb::split qr@MBCS-quotee@cgmosx            mb::_split qr{@{[qr`OO-quotee`mosx ]}}cg
  m#MBCS-quotee#cgimosx                      m{\G${mb::_anchor}@{[mb::_ignorecase(qr#OO-quotee#mosx)]}@{[mb::_m_passed()]}}cg
  m#MBCS-quotee#cgmosx                       m{\G${mb::_anchor}@{[qr#OO-quotee#mosx ]}@{[mb::_m_passed()]}}cg
  s#MBCS-regexp#MBCS-replacement#eegimosxr   s{(\G${mb::_anchor})@{[mb::_ignorecase(qr#OO-regexp#mosx)]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q#OO-replacement#}egr
  s#MBCS-regexp#MBCS-replacement#eegmosxr    s{(\G${mb::_anchor})@{[qr#OO-regexp#mosx ]}@{[mb::_s_passed()]}}{$1 . mb::eval mb::eval q#OO-replacement#}egr
  qr#MBCS-quotee#cgimosx                     qr{\G${mb::_anchor}@{[mb::_ignorecase(qr#OO-quotee#mosx)]}@{[mb::_m_passed()]}}cg
  qr#MBCS-quotee#cgmosx                      qr{\G${mb::_anchor}@{[qr#OO-quotee#mosx ]}@{[mb::_m_passed()]}}cg
  split m#^#                                 mb::_split qr{@{[qr#^#m ]}}
  split m#MBCS-quotee#cgimosx                mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
  split m#MBCS-quotee#cgmosx                 mb::_split qr{@{[qr#OO-quotee#mosx ]}}cg
  split qr#^#                                mb::_split qr{@{[qr#^#m ]}}
  split qr#MBCS-quotee#cgimosx               mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
  split qr#MBCS-quotee#cgmosx                mb::_split qr{@{[qr#OO-quotee#mosx ]}}cg
  mb::split qr#^#                            mb::_split qr{@{[qr#^#m ]}}
  mb::split qr#MBCS-quotee#cgimosx           mb::_split qr{@{[mb::_ignorecase(qr#OO-quotee#mosx)]}}cg
  mb::split qr#MBCS-quotee#cgmosx            mb::_split qr{@{[qr#OO-quotee#mosx ]}}cg
  /[abc 123]/xx                              m{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
  m/[abc 123]/xx                             m{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
  qr/[abc 123]/xx                            qr{\G${mb::_anchor}@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_m_passed()]}}
  s/[abc 123]//xx                            s{(\G${mb::_anchor})@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xx ]}@{[mb::_s_passed()]}}{$1 . qq //}e
  split /[abc 123]/xx                        mb::_split qr{@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xxm ]}}
  split m/[abc 123]/xx                       mb::_split qr{@{[qr/(?:@{[mb::_cc(qq[abc123])]})/xxm ]}}
  $`                                         mb::_PREMATCH()
  ${`}                                       mb::_PREMATCH()
  $PREMATCH                                  mb::_PREMATCH()
  ${PREMATCH}                                mb::_PREMATCH()
  ${^PREMATCH}                               mb::_PREMATCH()
  $&                                         mb::_MATCH()
  ${&}                                       mb::_MATCH()
  $MATCH                                     mb::_MATCH()
  ${MATCH}                                   mb::_MATCH()
  ${^MATCH}                                  mb::_MATCH()

t/2002_basic_2quote.t  view on Meta::CPAN 

qr }1}
END1
qr {\G${mb::_anchor}@{[qr }1} ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 424
qr ~1~
END1
qr {\G${mb::_anchor}@{[qr ~1~ ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 425
split m!1!
END1
mb::_split qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 426
split m"1"
END1
mb::_split qr{@{[qr"1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 427
split m#1#
END1
mb::_split qr{@{[qr#1#m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 428
split m$1$
END1
mb::_split qr{@{[qr$1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 429
split m%1%
END1
mb::_split qr{@{[qr%1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 430
split m&1&
END1
mb::_split qr{@{[qr&1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 431
split m'1'
END1
mb::_split qr{@{[qr'1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 432
split m(1)
END1
mb::_split qr{@{[qr(1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 433
split m)1)
END1
mb::_split qr{@{[qr)1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 434
split m*1*
END1
mb::_split qr{@{[qr*1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 435
split m+1+
END1
mb::_split qr{@{[qr+1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 436
split m,1,
END1
mb::_split qr{@{[qr,1,m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 437
split m-1-
END1
mb::_split qr{@{[qr-1-m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 438
split m.1.
END1
mb::_split qr{@{[qr.1.m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 439
split m/1/
END1
mb::_split qr{@{[qr/1/m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 440
split m:1:
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 441
split m;1;
END1
mb::_split qr{@{[qr;1;m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 442
split m<1>
END1
mb::_split qr{@{[qr<1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 443
split m=1=
END1
mb::_split qr{@{[qr=1=m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 444
split m>1>
END1
mb::_split qr{@{[qr>1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 445
split m?1?
END1
mb::_split qr{@{[qr?1?m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 446
split m@1@
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 447
split m[1]
END1
mb::_split qr{@{[qr[1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 448
split m\1\
END1
mb::_split qr{@{[qr\1\m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 449
split m]1]
END1
mb::_split qr{@{[qr]1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 450
split m^1^
END1
mb::_split qr{@{[qr^1^m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 451
split m`1`
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 452
split m{1}
END1
mb::_split qr{@{[qr{1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 453
split m|1|
END1
mb::_split qr{@{[qr|1|m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 454
split m}1}
END1
mb::_split qr{@{[qr}1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 455
split m~1~
END1
mb::_split qr{@{[qr~1~m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 456
split m !1!
END1
mb::_split qr {@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 457
split m "1"
END1
mb::_split qr {@{[qr "1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 458
split m $1$
END1
mb::_split qr {@{[qr $1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 459
split m %1%
END1
mb::_split qr {@{[qr %1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 460
split m &1&
END1
mb::_split qr {@{[qr &1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 461
split m '1'
END1
mb::_split qr {@{[qr '1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 462
split m (1)
END1
mb::_split qr {@{[qr (1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 463
split m )1)
END1
mb::_split qr {@{[qr )1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 464
split m *1*
END1
mb::_split qr {@{[qr *1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 465
split m +1+
END1
mb::_split qr {@{[qr +1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 466
split m ,1,
END1
mb::_split qr {@{[qr ,1,m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 467
split m -1-
END1
mb::_split qr {@{[qr -1-m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 468
split m .1.
END1
mb::_split qr {@{[qr .1.m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 469
split m /1/
END1
mb::_split qr {@{[qr /1/m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 470
split m 212
END1
mb::_split qr {@{[qr 212m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 471
split m A1A
END1
mb::_split qr {@{[qr A1Am ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 472
split m _1_
END1
mb::_split qr {@{[qr _1_m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 473
split m :1:
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 474
split m ;1;
END1
mb::_split qr {@{[qr ;1;m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 475
split m <1>
END1
mb::_split qr {@{[qr <1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 476
split m =1=
END1
mb::_split qr {@{[qr =1=m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 477
split m >1>
END1
mb::_split qr {@{[qr >1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 478
split m ?1?
END1
mb::_split qr {@{[qr ?1?m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 479
split m @1@
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 480
split m [1]
END1
mb::_split qr {@{[qr [1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 481
split m \1\
END1
mb::_split qr {@{[qr \1\m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 482
split m ]1]
END1
mb::_split qr {@{[qr ]1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 483
split m ^1^
END1
mb::_split qr {@{[qr ^1^m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 484
split m `1`
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 485
split m {1}
END1
mb::_split qr {@{[qr {1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 486
split m |1|
END1
mb::_split qr {@{[qr |1|m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 487
split m }1}
END1
mb::_split qr {@{[qr }1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 488
split m ~1~
END1
mb::_split qr {@{[qr ~1~m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 489
split qr!1!
END1
mb::_split qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 490
split qr"1"

t/2002_basic_2quote.t  view on Meta::CPAN 

split(qr }1})
END1
mb::_split(qr {@{[qr }1}m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 680
split(qr ~1~)
END1
mb::_split(qr {@{[qr ~1~m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 681
mb::split m!1!
END1
mb::_split qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 682
mb::split m"1"
END1
mb::_split qr{@{[qr"1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 683
mb::split m#1#
END1
mb::_split qr{@{[qr#1#m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 684
mb::split m$1$
END1
mb::_split qr{@{[qr$1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 685
mb::split m%1%
END1
mb::_split qr{@{[qr%1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 686
mb::split m&1&
END1
mb::_split qr{@{[qr&1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 687
mb::split m'1'
END1
mb::_split qr{@{[qr'1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 688
mb::split m(1)
END1
mb::_split qr{@{[qr(1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 689
mb::split m)1)
END1
mb::_split qr{@{[qr)1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 690
mb::split m*1*
END1
mb::_split qr{@{[qr*1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 691
mb::split m+1+
END1
mb::_split qr{@{[qr+1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 692
mb::split m,1,
END1
mb::_split qr{@{[qr,1,m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 693
mb::split m-1-
END1
mb::_split qr{@{[qr-1-m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 694
mb::split m.1.
END1
mb::_split qr{@{[qr.1.m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 695
mb::split m/1/
END1
mb::_split qr{@{[qr/1/m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 696
mb::split m:1:
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 697
mb::split m;1;
END1
mb::_split qr{@{[qr;1;m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 698
mb::split m<1>
END1
mb::_split qr{@{[qr<1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 699
mb::split m=1=
END1
mb::_split qr{@{[qr=1=m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 700
mb::split m>1>
END1
mb::_split qr{@{[qr>1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 701
mb::split m?1?
END1
mb::_split qr{@{[qr?1?m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 702
mb::split m@1@
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 703
mb::split m[1]
END1
mb::_split qr{@{[qr[1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 704
mb::split m\1\
END1
mb::_split qr{@{[qr\1\m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 705
mb::split m]1]
END1
mb::_split qr{@{[qr]1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 706
mb::split m^1^
END1
mb::_split qr{@{[qr^1^m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 707
mb::split m`1`
END1
mb::_split qr{@{[qr`1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 708
mb::split m{1}
END1
mb::_split qr{@{[qr{1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 709
mb::split m|1|
END1
mb::_split qr{@{[qr|1|m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 710
mb::split m}1}
END1
mb::_split qr{@{[qr}1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 711
mb::split m~1~
END1
mb::_split qr{@{[qr~1~m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 712
mb::split m !1!
END1
mb::_split qr {@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 713
mb::split m "1"
END1
mb::_split qr {@{[qr "1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 714
mb::split m $1$
END1
mb::_split qr {@{[qr $1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 715
mb::split m %1%
END1
mb::_split qr {@{[qr %1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 716
mb::split m &1&
END1
mb::_split qr {@{[qr &1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 717
mb::split m '1'
END1
mb::_split qr {@{[qr '1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 718
mb::split m (1)
END1
mb::_split qr {@{[qr (1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 719
mb::split m )1)
END1
mb::_split qr {@{[qr )1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 720
mb::split m *1*
END1
mb::_split qr {@{[qr *1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 721
mb::split m +1+
END1
mb::_split qr {@{[qr +1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 722
mb::split m ,1,
END1
mb::_split qr {@{[qr ,1,m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 723
mb::split m -1-
END1
mb::_split qr {@{[qr -1-m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 724
mb::split m .1.
END1
mb::_split qr {@{[qr .1.m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 725
mb::split m /1/
END1
mb::_split qr {@{[qr /1/m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 726
mb::split m 212
END1
mb::_split qr {@{[qr 212m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 727
mb::split m A1A
END1
mb::_split qr {@{[qr A1Am ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 728
mb::split m _1_
END1
mb::_split qr {@{[qr _1_m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 729
mb::split m :1:
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 730
mb::split m ;1;
END1
mb::_split qr {@{[qr ;1;m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 731
mb::split m <1>
END1
mb::_split qr {@{[qr <1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 732
mb::split m =1=
END1
mb::_split qr {@{[qr =1=m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 733
mb::split m >1>
END1
mb::_split qr {@{[qr >1>m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 734
mb::split m ?1?
END1
mb::_split qr {@{[qr ?1?m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 735
mb::split m @1@
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 736
mb::split m [1]
END1
mb::_split qr {@{[qr [1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 737
mb::split m \1\
END1
mb::_split qr {@{[qr \1\m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 738
mb::split m ]1]
END1
mb::_split qr {@{[qr ]1]m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 739
mb::split m ^1^
END1
mb::_split qr {@{[qr ^1^m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 740
mb::split m `1`
END1
mb::_split qr {@{[qr `1`m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 741
mb::split m {1}
END1
mb::_split qr {@{[qr {1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 742
mb::split m |1|
END1
mb::_split qr {@{[qr |1|m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 743
mb::split m }1}
END1
mb::_split qr {@{[qr }1}m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 744
mb::split m ~1~
END1
mb::_split qr {@{[qr ~1~m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 745
mb::split qr!1!
END1
mb::_split qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 746
mb::split qr"1"

t/2002_basic_2quote.t  view on Meta::CPAN 

qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 946
mb::split #comment
qr!1!
END1
mb::_split #comment
qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 947
split m #comment
!1!
END1
mb::_split qr #comment
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 948
split qr #comment
!1!
END1
mb::_split qr #comment
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 949
mb::split m #comment
!1!
END1
mb::_split qr #comment
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 950
mb::split qr #comment
!1!
END1
mb::_split qr #comment



( run in 0.477 second using v1.01-cache-2.11-cpan-71847e10f99 )