The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
12345678910 package Sample;use 5.006;use Moo;use namespace::clean;has xml => (is => 'ro', default => sub { return File::Spec->catfile('t', 'sample.xml') });with 'Map::Tube';1;
package
Sample;
use
5.006;
Moo;
namespace::clean;
has
xml
=> (
is
=>
'ro'
,
default
sub
{
return
File::Spec->catfile(
't'
'sample.xml'
) });
with
'Map::Tube'
;
1;