use Win32::OLE;
use MooseX::Declare;

class Dictionary {
  has '_DictObj' => ( 
	   is       => 'ro',
	   isa      => 'Object',
	   required => 1,
	   handles  => [ qw/Count Item Add/ ],
    );
};

# somewhere else

my $dict = Dictionary->new(Win32::OLE->CreateObject("Scripting.Dictionary"));
$dict->Add($key, $value);