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';
|