Select Code to Download

use Win32::OLE;
my $dict = Win32::OLE->CreateObject("Scripting.Dictionary");
$dict->Count();      # how many Items
$dict->Add( $key, $value);
my $val =  $dict->Item($key);

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

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

package MyOleTypeLib;

...
  has '_DictObj' => ( 
       isa      => 'Dictionary',
  ...

class Dictionary {
...
...
 method set_text (Str $newtext) {
    return _DictObj->SetFile(1, $newtext);
 }

my $text = $moose_dict->text;
$moose_dict->text($newtext);