#!/usr/bin/perl -slw
use strict;
use Data::Dump qw(dump pp);
use XML::Simple qw(:strict);

my $xml = XMLin( \*DATA, ForceArray => ['parameters','members','declaration_name'], KeyAttr => 0 );
#pp $xml;

$_->{ kind } eq 'function'
    and grep{ $_->{ type } eq 'uint64_t' } @{ $_->{ parameters } }
    and print $_->{name}
    for @{ $xml->{public_methods}{members} };


__DATA__
<classes name="Panoply::BAR">
    <public_methods>
        <members name="BAR" const="no" kind="function" protection="public" static="no" virtualness="non_virtual" volatile="no">
            <parameters declaration_name="pciReg" type="Register::Ptr" />
        </members>
        <members name="bits" const="no" kind="function" protection="public" static="no" type="void" virtualness="non_virtual" volatile="no">
            <parameters declaration_name="value" type="uint64_t" />
        </members>
        <members name="subBitVector" const="no" kind="function" protection="public" static="no" type="void" virtualness="non_virtual" volatile="no">
            <parameters declaration_name="value" type="const BitVector &amp;" />
        </members>
    </public_methods>
    <enums>
        <members name="ObjectState" kind="enum" protection="public" static="no" virtualness="non_virtual">
            <values name="NEW"> </values>
            <values name="REFRESHED"> </values>
            <values name="DIRTY"> </values>
        </members>
    </enums>
</classes>