mb
3 results

 view release on metacpan or  search on metacpan

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 414
qr ?1?
END1
qr {\G${mb::_anchor}@{[qr ?1? ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 415
qr @1@
END1
qr {\G${mb::_anchor}@{[qr `1` ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 416
qr [1]
END1
qr {\G${mb::_anchor}@{[qr [1] ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 417
qr \1\
END1
qr {\G${mb::_anchor}@{[qr \1\ ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 418
qr ]1]
END1
qr {\G${mb::_anchor}@{[qr ]1] ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 419
qr ^1^
END1
qr {\G${mb::_anchor}@{[qr ^1^ ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 420
qr `1`
END1
qr {\G${mb::_anchor}@{[qr `1` ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 421
qr {1}
END1
qr {\G${mb::_anchor}@{[qr {1} ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 422
qr |1|
END1
qr {\G${mb::_anchor}@{[qr |1| ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 423
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"
END1
mb::_split qr{@{[qr"1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 491
split qr#1#
END1
mb::_split qr{@{[qr#1#m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 492
split qr$1$
END1
mb::_split qr{@{[qr$1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 493
split qr%1%
END1
mb::_split qr{@{[qr%1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 494
split qr&1&
END1
mb::_split qr{@{[qr&1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 495
split qr'1'
END1
mb::_split qr{@{[qr'1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 496
split qr(1)
END1
mb::_split qr{@{[qr(1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 497
split qr)1)
END1
mb::_split qr{@{[qr)1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 498
split qr*1*
END1
mb::_split qr{@{[qr*1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 499
split qr+1+
END1
mb::_split qr{@{[qr+1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 500
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 670
split(qr ?1?)
END1
mb::_split(qr {@{[qr ?1?m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 671
split(qr @1@)
END1
mb::_split(qr {@{[qr `1`m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 672
split(qr [1])
END1
mb::_split(qr {@{[qr [1]m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 673
split(qr \1\)
END1
mb::_split(qr {@{[qr \1\m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 674
split(qr ]1])
END1
mb::_split(qr {@{[qr ]1]m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 675
split(qr ^1^)
END1
mb::_split(qr {@{[qr ^1^m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 676
split(qr `1`)
END1
mb::_split(qr {@{[qr `1`m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 677
split(qr {1})
END1
mb::_split(qr {@{[qr {1}m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 678
split(qr |1|)
END1
mb::_split(qr {@{[qr |1|m ]}})
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 679
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"
END1
mb::_split qr{@{[qr"1"m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 747
mb::split qr#1#
END1
mb::_split qr{@{[qr#1#m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 748
mb::split qr$1$
END1
mb::_split qr{@{[qr$1$m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 749
mb::split qr%1%
END1
mb::_split qr{@{[qr%1%m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 750
mb::split qr&1&
END1
mb::_split qr{@{[qr&1&m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 751
mb::split qr'1'
END1
mb::_split qr{@{[qr'1'm ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 752
mb::split qr(1)
END1
mb::_split qr{@{[qr(1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 753
mb::split qr)1)
END1
mb::_split qr{@{[qr)1)m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 754
mb::split qr*1*
END1
mb::_split qr{@{[qr*1*m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 755
mb::split qr+1+
END1
mb::_split qr{@{[qr+1+m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 756
mb::split qr,1,

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

q #comment
!1!
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 939
qq #comment
!1!
END1
qq #comment
!1!
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 940
qx #comment
!1!
END1
qx #comment
!1!
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 941
m #comment
!1!
END1
m #comment
{\G${mb::_anchor}@{[qr !1! ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 942
qr #comment
!1!
END1
qr #comment
{\G${mb::_anchor}@{[qr !1! ]}@{[mb::_m_passed()]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 943
split #comment
m!1!
END1
mb::_split #comment
qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 944
split #comment
qr!1!
END1
mb::_split #comment
qr{@{[qr!1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 945
mb::split #comment
m!1!
END1
mb::_split #comment
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
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 951
split #comment1
m #comment2
!1!
END1
mb::_split #comment1
qr #comment2
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 952
split #comment1
qr #comment2
!1!
END1
mb::_split #comment1
qr #comment2
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 953
mb::split #comment1
m #comment2
!1!
END1
mb::_split #comment1
qr #comment2
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 954
mb::split #comment1
qr #comment2
!1!
END1
mb::_split #comment1
qr #comment2
{@{[qr !1!m ]}}
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 955
split( #comment
m!1!
)
END1
mb::_split( #comment
qr{@{[qr!1!m ]}}
)
END2
    sub { $_=<<'END1'; mb::parse() eq <<'END2'; }, # test no 956
split( #comment
qr!1!



( run in 0.720 second using v1.01-cache-2.11-cpan-5511b514fd6 )