The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
plan 1;
my $string = path( 't/devscripts/regexp-killer.c' )->slurp_utf8;
my $license = String::License->new( string => $string )->as_text;
is $license , 'UNKNOWN' , 'regexp killer' ;
done_testing;
|