use Variant2::RootClass;

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

use strict;
use warnings;

{
    # Encapsulated class data

    my %_attr_data = #        DEFAULT          ACCESSIBILITY
        ( '_derived_entry1' => [ undef     ,        'read'],
          '_derived_entry2' => [ undef     ,        'read'],
          '_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;