how do I use Win32::TieRegistry in a multi-platform program?

[perltux]

If I use Win32::TieRegistry in a program meant to run both on Windows an Linux I get the following error when running it on Linux:

Global symbol "$Registry" requires explicit package name at ./script.pl line 16.
Execution of ./script.pl aborted due to compilation errors.

The code that leads to this is (this is only an extract of a much larger program):

#!/usr/bin/perl
use strict;
use warnings;

my $LINUX;
my $WINDOWS;

BEGIN{
    if ($^O eq 'linux') { $LINUX=1; }
    elsif ($^O eq 'MSWin32') { $WINDOWS=1; }
}

use if ($WINDOWS), 'Win32::TieRegistry' => (Delimiter => '/');

if ($WINDOWS) {
    my $mykey=$Registry->{'HKEY_CURRENT_USER/Control Panel/Desktop/Win
+dowMetrics'};
    my $wdpi=hex($mykey->{'AppliedDPI'}) .'dpi / ';
}

The problem is that $Registry is undefined when this program runs on Linux. How do I solve this?
Many thanks in advance

[haukex]

Try putting our $Registry; as the first thing inside the if ($WINDOWS) (untested and works).

And BTW, this question has been asked before: Conditional use of Win32::TieRegistry

[perltux]

many thanks, I can confirm too that your solution works! I don't know how I missed the other thread, I did search for this (with google) before posting here.

[ikegami]

I'd create a module for each platform, and load the appropriate module.

sub get_sys_info {
   if ($^O eq 'Win32') {
      require My::SystemInfo::Win32;
      return My::SystemInfo::Win32->new();
   } else {
      require My::SystemInfo::Unix;
      return My::SystemInfo::Unix->new();
   }
}

my $sys_info = get_sys_info();
... $sys_info->wdpi ...