File Coverage

blib/lib/Win32/MailboxGUID.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	14	71.4
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	44	48	91.6

package Win32::MailboxGUID;
BEGIN {
  $Win32::MailboxGUID::VERSION = '0.02';
}

#ABSTRACT: functions to convert Exchange mailbox GUIDs

use strict;
use warnings;

our @ISA            = qw[Exporter];
our @EXPORT_OK      = qw[ad_to_exch exch_to_ad];

my $guidre = qr/^\{[[:xdigit:]]{8}-[[:xdigit:]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{12}\}$/i;

sub ad_to_exch {
  my $guid = shift;
  $guid = shift if eval { $guid->isa(__PACKAGE__) };
  return unless $guid;
  my @vals = map { sprintf("%.2X", ord $_) } unpack "(a1)*", $guid;
  return unless scalar @vals == 16;
  return join '', '{', @vals[3,2,1,0], '-', @vals[5,4], '-', @vals[7,6], '-', @vals[8,9], '-', @vals[10..$#vals], '}';
}

sub exch_to_ad {
  my $guid = shift;
  $guid = shift if eval { $guid->isa(__PACKAGE__) };
  return unless $guid;
  return unless $guid =~ /$guidre/i;
  $guid =~ s/[\{\}]+//g;
  my $string = '';
  my $count = 0;

  $string .= "\\$_" for
    map { $count++; ( $count >= 4 ? ( unpack "(A2)*", $_ ) : ( reverse unpack "(A2)*", $_ ) ) }
      split /\-/, $guid;

  return $string;
}

q"GUID! GUID, GUID, gum gum";


__END__