#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dumper;
use Tie::Hash;

package Tie::Hash::Mine {
    BEGIN { our @ISA = qw(Tie::StdHash) };
    sub STORE {
        warn "Setting AnyEvent::DNS::$_[1]";
        $_[0]->SUPER::STORE($_[1],
                            ($_[1] eq 'DOMAIN_PORT') ? sub () { 1053 } : $_[2])
    }
};

BEGIN {
    tie %AnyEvent::DNS::, 'Tie::Hash::Mine';
}

#use AnyEvent::DNS; <-- uncommenting this results in a segmentation fault!
BEGIN {
    package AnyEvent::DNS {
        sub ONE () { 1 }
        sub DOMAIN_PORT () { 53 }
    }
}

say Dumper \%AnyEvent::DNS::;
say Dumper tied(%AnyEvent::DNS::);