8 lines
89 B
Perl
8 lines
89 B
Perl
use 5.36.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Part1 qw/ part1 $sample /;
|
|
|
|
is part1($sample) => 'CMZ';
|