package Dist::Zilla::Plugin::PurePerlTests;
use strict;
use warnings;
use namespace::autoclean;
our $VERSION = '0.06';
use Dist::Zilla::File::InMemory;
use Moose;
with 'Dist::Zilla::Role::FileGatherer';
has env_var => (
is => 'ro',
isa => 'Str',
required => 1,
);
sub gather_files {
my $self = shift;
for my $file ( grep { $_->name() =~ m{\At/.+\.t\z} }
@{ $self->zilla()->files() } ) {
next if $file->isa('Dist::Zilla::File::InMemory');
$self->_copy_file($file);
}
}
sub _copy_file {
my $self = shift;
my $file = shift;
( my $name = $file->name() ) =~ s{t/(.+)$}{xt/author/pp-$1};
my $content = $file->content();
return if $content =~ /^\#\s*no\s+pp\s+test\s*$/m;
my $env_var = $self->env_var();
my $perl_line = q{};
if ( $content =~ s/^(\#![^\n]+)\n// ) {
$perl_line = $1 . "\n\n";
}
$content = <<"EOF";
${perl_line}BEGIN {
\$ENV{$env_var} = 1;
}
$content
EOF
$self->log( 'rewriting ' . $file->name() . " to $name" );
my $pp_file = Dist::Zilla::File::InMemory->new(
name => $name,
content => $content,
);
$self->add_file($pp_file);
}
__PACKAGE__->meta()->make_immutable();
1;
# ABSTRACT: Run all your tests twice, once with XS code and once with pure Perl
__END__
=pod
=encoding UTF-8
=head1 NAME
Dist::Zilla::Plugin::PurePerlTests - Run all your tests twice, once with XS code and once with pure Perl
=head1 VERSION
version 0.06
=head1 SYNOPSIS
In your F<dist.ini>:
[PurePerlTests]
env_var = MY_MODULE_PURE_PERL
=head1 DESCRIPTION
This plugin is for modules which ship with a dual XS/pure Perl implementation.
The plugin makes a copy of all your tests when doing release testing (via
C<dzil test> or C<dzil release>). The copy will set an environment value that
you specify in a C<BEGIN> block. You can use this to force your code to not
load the XS implementation.
=for Pod::Coverage gather_files
=head1 CONFIGURATION
This plugin takes one configuration key, "env_var", which is required.
=head1 SKIPPING TESTS
If you don't want to run the a given test file in pure Perl mode, you can put
a comment like this in your test:
# no pp test
This must be on a line by itself. This plugin will skip any tests which
contain this comment.
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|http://rt.cpan.org/Public/Dist/Display.html?Name=Dist-Zilla-Plugin-PurePerlTests>
(or L<bug-dist-zilla-plugin-pureperltests@rt.cpan.org|mailto:bug-dist-zilla-plugin-pureperltests@rt.cpan.org>).
I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.
=head1 DONATIONS
If you'd like to thank me for the work I've done on this module, please
consider making a "donation" to me via PayPal. I spend a lot of free time
creating free software, and would appreciate any support you'd care to offer.
Please note that B<I am not suggesting that you must do this> in order for me
to continue working on this particular software. I will continue to do so,
inasmuch as I have in the past, for as long as it interests me.
Similarly, a donation made in this way will probably not make me work on this
software much more, unless I get so many donations that I can consider working
on free software full time (let's all have a chuckle at that together).
To donate, log into PayPal and send money to autarch@urth.org, or use the
button at L<http://www.urth.org/~autarch/fs-donation.html>.
=head1 AUTHOR
Dave Rolsky <autarch@urth.org>
=head1 COPYRIGHT AND LICENCE
This software is Copyright (c) 2010 - 2016 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut