$VAR1 = bless( do{\(my $o = 1)}, 'Port' );
std dump: [
  'Port',
  {
    'Port' => {
                'id' => 4,
                'PORT_ID' => 2
              }
  }
]
id: 4
portfolio: 2
my dump:1
get_id: 4
set_id: 10
get_id: 10
get portid: 2
set portid: 10
get portid: 10
can: dump:get_id:heritage:disinherit:add_class:meta:clone:id:new:set:pump:mydump:create_field:set_id:croak:confess:carp:portid:positive:inherit: