view release on metacpan or  search on metacpan

lib/Test/Module/Build/Pluggable.pm  view on Meta::CPAN

    my $self = shift;
    chdir($self->{origcwd});
}

sub write_plugin {
    my ($self, $package, $content) = @_;

    my $ofile = do {
        my $path = $package;
        $path =~ s!::!/!g;
        $path .= ".pm";
        File::Spec->catfile($self->{libdir}, $path);
    };
    File::Path::mkpath(File::Basename::dirname($ofile));
    open my $fh, '>', $ofile or die "Cannot open $ofile, $!";
    print {$fh} $content;
    close $fh;

    push @{$self->{files}}, $ofile;
}

sub write_file {
    my ($self, $fname, $content) = @_;

    if (my $dir = File::Basename::dirname($fname)) {
        File::Path::mkpath($dir);
    }

    open my $fh, '>', $fname or die "Cannot open $fname: $!";
    print $fh $content;
    close $fh;

    push @{$self->{files}}, $fname;
}

sub write_manifest {
    my $self = shift;

    open my $fh, '>', 'MANIFEST' or die "Cannot open MANIFEST: $!";
    for (@{$self->{files}}) {
        print $fh $_ . "\n";
    }
    close $fh;
}

sub read_file {
    my ($self, $fname) = @_;
    open my $fh, '<', $fname or die "Cannot open $fname in @{[ Cwd::getcwd() ]}: $!";
    local $/;
    scalar(<$fh>);
}

sub run_build_script {
    my ($self, @args) = @_;

    my $pid = fork();
    die "fork failed: $!" unless defined $pid;
    if ($pid) { # parent
        waitpid $pid, 0;
    } else { # child
        local @ARGV = (@args);
        do 'Build';
        ::ok(!$@) or ::diag $@;
        exit 0;
    }
}

sub run_build_pl {
    my ($self, @args) = @_;

    my $pid = fork();
    die "fork failed: $!" unless defined $pid;
    if ($pid) { # parent
        waitpid $pid, 0;
    } else { # child
        local @ARGV = @args;
        do 'Build.PL';
        ::ok(-f 'Build', 'Created Build file') or ::diag $@;
        exit 0;
    }
}

1;
__END__

=head1 NAME

Test::Module::Build::Pluggable - Test your plugin

=head1 SYNOPSIS

    my $test = Test::Module::Build::Pluggable->new();
    $test->write_file('Build.PL', <<'...');
    ...
    $test->run_build_pl();
    $test->run_build_script();
    # test...

=head1 METHODS

=over 4

=item C<< my $test = Test::Module::Build::Pluggable->new() >>

=item C<< $test->write_file($filename, $src); >>

=item C<< $test->write_plugin($package, $src); >>

=item C<< $test->write_manifest(); >>

Write manifest from file list. The file list means list of file name added by C<< $test->write_file >> and C<< $test->write_plugin >>

=item C<< $test->run_build_pl(); >>

=item C<< $test->run_build_script(); >>

=back