1234567891011121314 use strict;use warnings FATAL => 'all';use utf8;use Test::More;use t::Util;use t::My;use Path::Maker;my $tempdir = tempdir;my $maker = Path::Maker->new( base_dir => $tempdir, package => 't::My' );like $maker->render('my1', 'baz'), qr/foo bar baz/;done_testing;
use
strict;
warnings
FATAL
=>
'all'
;
utf8;
Test::More;
t::Util;
t::My;
Path::Maker;
my
$tempdir
= tempdir;
$maker
= Path::Maker->new(
base_dir
,
package
't::My'
);
like
->render(
'my1'
'baz'
),
qr/foo bar baz/
done_testing;