CParser-test.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use File::Basename;
   6 use Cwd 'abs_path';
   7 use lib dirname(abs_path($0));
   8 use CParser;
   9 use Data::Dump qw(dump);
  10
  11 my $file = $ARGV[0] or die ("need filename");
  12
  13 my $p = CParser->new($file);
  14 $p->parse();
  15 dump($p);