dist/ExtUtils-ParseXS/t/108-map_type.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Carp;
   5 use Cwd;
   6 use File::Spec;
   7 use File::Temp qw( tempdir );
   8 use Test::More qw(no_plan); # tests =>  7;
   9 use lib qw( lib );
  10 use ExtUtils::ParseXS::Utilities qw(
  11     map_type
  12 );
  13
  14 #print "\t" . map_type($self->{ret_type}, 'RETVAL', $self->{hiertype}) . ";\n"
  15 #print "\t" . map_type($var_type, $var_name, $self->{hiertype});
  16 #print "\t" . map_type($var_type, undef, $self->{hiertype});
  17
  18 pass("Passed all tests in $0");