From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MANWAR / Map-Tube-3.99 / t / lib / Sample.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
#!/usr/bin/perl
package Sample;
use 5.012;
use File::Spec;
use Moo;
use namespace::clean;
has xml  => ( is => 'ro', default => sub { return File::Spec->catfile( 't', 'test-the-test', 'sample.xml' ) } );
with 'Map::Tube';
1;