package SpecializedImplA2; use strict; use base qw(AbstractionImpl2); use base qw(SpecializedAbstractionAIF); sub new { my $class = shift; my $self = {}; bless $self, $class; } sub a { } 1;