#!/usr/bin/env perl -w
##!/usr/bin/env perl -wd

use strict;
use Data::Dumper;

$Data::Dumper::Purity = 1;

my %args = (
    XS_VERSION => '\'"0.011"\'',
    VERSION    => '\'"0.011"\'',
);

print arg_defines(%args), "\n";

exit 0;

sub arg_defines {
  my (%args) = @_;
#  my ($self, %args) = @_;
  return map "-D$_=$args{$_}", keys %args;
}
__END__

##</code><code>##

$ macro-D.pl
-DXS_VERSION='"0.011"'-DVERSION='"0.011"'