Re: using perl xs enums in perl scripts

[Steve Fink]

On Dec 8, 2007 3:43 PM, allswellthatendswell <[EMAIL PROTECTED]> wrote:
> use mdNamePerl;
> my $g;
> #Create
> mdName Object$g=&mdNamePerl::mdNameCreate();
> &mdNamePerl::mdNameSetPrimaryNameHint($g,NameFull);

Looks like you've solved your problem, but I wanted to mention (1)
that your mail was horribly wrapped (as you can see above), so I
couldn't make sense of what it was trying to do; and (2) is that
really the API? I would expect it to work as:

  use mdNamePerl;
  #Create mdName Object
  my $g = mdNamePerl::mdNameCreate();
  $g->mdNameSetPrimaryNameHint(NameFull);

In fact, I'm guessing that it *does* work that way.

If possible, I'd also lose the "mdName" prefix on all of those
methods. It's redundant with the package name.

  use mdNamePerl;
  #Create mdName Object
  my $g = mdNamePerl::Create();
  $g->SetPrimaryNameHint(NameFull);