File Coverage

lib/XML/XMetaL/Registry.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package XML::XMetaL::Registry;


use strict;
use warnings;

use Hash::Util qw(lock_keys);
use Win32::TieRegistry(Delimiter => '/');

sub new {
    my ($class) = @_;
    my $self;
    eval {
        $self = bless {
            _softquad_key => 'HKEY_LOCAL_MACHINE/SOFTWARE/SoftQuad/',
        }, ref($class) || $class;
        lock_keys(%$self, keys %$self);
        $Registry->Delimiter("/");
        #$self->{_xmetal_path} = $self->_get_xmetal_path_from_registry();
    };
    croak $@ if $@;
    return $self;
}

sub _get_softquad_key {$_[0]->{_softquad_key}}

#sub _get_xmetal_path {$_[0]->{_xmetal_path}}

#sub _get_xmetal_path_from_registry {
#    my ($self) = @_;
#    my $registry_key_string = $self->{_xmetal_path_registry_key};
#    my $registry_key = $Registry->{$registry_key_string};
#    return $registry_key->{'/'};
#}

sub xmetal_versions {
    my ($self) = @_;
    #return ($self->_get_xmetal_path());
    my $softquad_key = $self->_get_softquad_key();
    my $softquad_hive = $Registry->{$softquad_key};
    my @subkeys = $softquad_hive->SubKeyNames;
    @subkeys = sort grep {/^XMetaL \d+\.\d+/} @subkeys;
    return wantarray ? @subkeys : $subkeys[-1];
}

sub xmetal_directory_path {
    my ($self) = @_;
    my $softquad_key = $self->_get_softquad_key();
    my $softquad_hive = $Registry->{$softquad_key};
    my @xmetal_versions = $self->xmetal_versions();
    my @xmetal_keys = map {"$_/Path//"} @xmetal_versions;
    my @xmetal_paths = map {$softquad_hive->{$_}} @xmetal_keys;
    return wantarray ? @xmetal_paths : $xmetal_paths[-1];
}

1;

__END__