Select Code to Download

#!/usr/bin/perl -l

...
  defined $realname or die "Missing the key '$basename'";
  return $_[0]{$realname};
  }

$VAR1 = bless( {
                 'values' => bless( {
...
               }, 'ClassTwo' );

$CustomField->Values->Name = Case type