sub hash_filter {
    my $source = shift;
    my $filter = shift;

    return {
        map {
            ref $filter->{$_} eq 'HASH'
            ? ref $source->{$_} eq 'HASH'
              ? ($_, hash_filter( $source->{$_}, $filter->{$_} ))
              : croak "bad filter: on '$_', expected HASH\n"
            : ($_, $source->{$_})
        } grep {
            exists $source->{$_}
        } keys %$filter
    }
}