vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/split-deep.t

   1 use Test::Base;
   2
   3 __DATA__
   4 === Complex generic manipulation
   5 --- (test) lines chomp Split Reverse Join=\s reverse join=\n
   6 Hey
   7 I Like Ike
   8 Give Peace A Chance
   9 Love Is The Answer
  10 --- (flipper) chomp
  11 Answer The Is Love
  12 Chance A Peace Give
  13 Ike Like I
  14 Hey