[p5sagit/Data-Dumper-ToXS.git] / Test.xs.PL

#!/usr/bin/env perl

use lib 'lib';
use Data::Dumper::ToXS;

open my $out, '>', $ARGV[0] or die "fail: $!";

my $ddxs = Data::Dumper::ToXS->new(
  target_package => 'Data::Dumper::ToXS::Test'
);

my @fix = do 't/fixtures.pl' or die "t/fixtures.pl: $@";

$ddxs->add_generator(@$_) for @fix;

print $out $ddxs->xs_code;
Commit	Line	Data
a231da50	1	#!/usr/bin/env perl
	2
	3	use lib 'lib';
	4	use Data::Dumper::ToXS;
	5
	6	open my $out, '>', $ARGV[0] or die "fail: $!";
	7
	8	my $ddxs = Data::Dumper::ToXS->new(
	9	target_package => 'Data::Dumper::ToXS::Test'
	10	);
	11
	12	my @fix = do 't/fixtures.pl' or die "t/fixtures.pl: $@";
	13
	14	$ddxs->add_generator(@$_) for @fix;
	15
	16	print $out $ddxs->xs_code;