#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Variant1::DerivedDerivedClass;
use Variant2::DerivedDerivedClass;

# VARIANT 1
my $obj1 = Variant1::DerivedDerivedClass->new('root_entry1' => 1,
                                             'root_entry2' => 2,
                                             'derived_entry1' => 3,
                                             'derived_entry2' => 4,
                                             'derived_entry3' => 5,
                                             'derived_derived_entry1' => 6,
                                             'derived_derived_entry2' => 7,
                                             'derived_derived_entry3' => 8 );

print $obj1->set_derived_entry3(27);
print Dumper $obj1;

# VARIANT 2
my $obj2 = Variant2::DerivedDerivedClass->new('root_entry1' => 1,
                                             'root_entry2' => 2,
                                             'derived_entry1' => 3,
                                             'derived_entry2' => 4,
                                             'derived_entry3' => 5,
                                             'derived_derived_entry1' => 6,
                                             'derived_derived_entry2' => 7,
                                             'derived_derived_entry3' => 8 );

print $obj2->set_derived_entry3(27);
print Dumper $obj2;