BEGIN {
	$PACK    = 'Win32::TieRegistry';
	$VERSION = '0.26';
	@ISA     = 'Tie::Hash';
}

##</code><code>##

BEGIN {
    $PACK    = 'Win32::TieRegistry64';
    $VERSION = '0.26';
    @ISA     = 'Tie::Hash';
}

##</code><code>##

# Basic master Registry object:
$RegObj= {};
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}= (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE, $Flag_HexDWord|$Flag_FixNulls, "${PACK}::_Roots" );

##</code><code>##

# Basic master Registry object:
sub KEY_WOW64_64KEY () { 0x0100 }
sub KEY_WOW64_32KEY () { 0x0200 }
$RegObj= {};
@$RegObj{qw( HANDLE MACHINE PATH DELIM OS_DELIM ACCESS FLAGS ROOTS )}= (
    "NONE", "", [], "\\", "\\",
    KEY_READ|KEY_WRITE|KEY_WOW64_64KEY|KEY_WOW64_32KEY, $Flag_HexDWord|$Flag_FixNulls, "${PACK}::_Roots" );

##</code><code>##

15:39 >perl -Mstrict -MWin32::TieRegistry64 -wE "say $Registry;"
Win32::TieRegistry64=HASH(0x17155bc)

15:55 >