#!/usr/bin/perl

use strict;
use warnings;
use Storable;

use PVE::RESTHandler;
use PVE::API2;

sub remove_code_refs {
    my ($tree) = @_;

    my $class = ref($tree);
    return if !$class;

    if ($class eq 'ARRAY') {
	foreach my $el (@$tree) {
	    remove_code_refs($el);
	}
    } elsif ($class eq 'HASH') {
	foreach my $k (keys %$tree) {
	    if (my $itemclass = ref($tree->{$k})) {
		if ($itemclass eq 'CODE') {
		    undef $tree->{$k};
		} elsif ($itemclass eq 'Regexp') {
		    $tree->{$k} = "$tree"; # return string representation
		} else {
		    remove_code_refs($tree->{$k});
		}
	    }
	}
    }
}

my $tree = PVE::RESTHandler::api_dump('PVE::API2', undef, 1);

remove_code_refs($tree);
Storable::store_fd($tree, \*STDOUT);

exit(0);