#!/usr/bin/perl -l

# https://perlmonks.org/?node_id=1229668

use strict;
use warnings;

my $CustomField = bless {
  foo => 1,
  values => bless({
    maxvalues => 1,
    name => 'Case type',
    }, 'ClassOne'),
  bar => 2,
  }, 'ClassTwo';

use Data::Dumper; print Dumper $CustomField;

print '$CustomField->Values->Name = ', $CustomField->Values->Name;


######################## just add this ( hehehe :)

sub UNIVERSAL::AUTOLOAD
  {
  my $basename = (split /::/, $UNIVERSAL::AUTOLOAD)[-1];
  $basename eq 'DESTROY' and return;
  my ($realname) = grep lc $basename eq lc, keys %{ $_[0] };
  defined $realname or die "Missing the key '$basename'";
  return $_[0]{$realname};
  }