The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
1234567891011121314 use Test2::V0;use Path::Tiny;use String::License;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;
use
Test2::V0;
Path::Tiny;
String::License;
plan 1;
my
$string
= path(
't/devscripts/regexp-killer.c'
)->slurp_utf8;
$license
= String::License->new(
string
=>
)->as_text;
is
,
'UNKNOWN'
'regexp killer'
;
done_testing;