Help language development. Donate to The Perl Foundation

Text::Utils cpan:TBROWDER last updated on 2020-02-12

t/020-split-line.t
use v6;
use Test;

use Text::Utils :ALL;

plan 2;

my $s1 = 'sub foo($song, $tool, @long-array, :$good) is export { say pwd }';

my ($line1, $line2) = split-line($s1, '(');
is $line1, 'sub foo(';
is $line2, '$song, $tool, @long-array, :$good) is export { say pwd }';