Test.xs.PL

   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;