use Variant2::DerivedClass;

package Variant2::DerivedDerivedClass;
our @ISA = qw( Variant2::DerivedClass );
our $VERSION = 1.00;

use strict;
use warnings;

{
    # Encapsulated class data

    my %_attr_data = #                    DEFAULT          ACCESSIBILITY
        ( '_derived_derived_entry1' => [ undef     ,        'read'],
          '_derived_derived_entry2' => [ undef     ,        'read'],
          '_derived_derived_entry3' => [ undef     ,        'read/write']);

    # Class methods to operate on encapsulated class data
    
    # get attribute class data of this class and its base class
    sub _get_attr_data
    {
        (%_attr_data, $_[0]->SUPER::_get_attr_data());
    }
}

1;