1#! perl
2# Copyright (C) 2001-2007, Parrot Foundation.
3
4use strict;
5use warnings;
6use lib qw( lib );
7use Parrot::Pmc2c::PMC::PrintTree;
8
9my ( %action, %options, @pmc_include_paths );
10
11my @args = @ARGV;
12
13my $self = Parrot::Pmc2c::PMC::PrintTree->new(
14    {
15        include => [ qw( src/pmc src/dynpmc ) ],
16        opt     => {},
17        args    => \@args,
18        bin     => q{},
19    }
20);
21
22$self->print_tree();
23exit;
24
25# Local Variables:
26#   mode: cperl
27#   cperl-indent-level: 4
28#   fill-column: 100
29# End:
30# vim: expandtab shiftwidth=4:
31