view release on metacpan or  search on metacpan

t/lib/TestPW.pm  view on Meta::CPAN

    builder => 'initDocPod',
);

# User only when fromPod is true. Will contain fake Perl code PPI.
has docPPI => (
    is      => 'rw',
    lazy    => 1,
    builder => 'initDocPPI',
);

sub slurp_file { local ( @ARGV, $/ ) = @_; <> }

sub run_in_dir {
    shift if $_[0]->isa(__PACKAGE__);    # Take TestPW->run_in_dir into account.
    my $dir = shift;

    my $tDir = File::Spec->catdir( "t", $dir );

    my $tester = __PACKAGE__->new( dir => $tDir, testName => $dir, );

    $tester->run;