package SpecializedImplB2; use strict; use base qw(AbstractionImpl2); use base qw(SpecializedAbstractionBIF); sub new { my $class = shift; my $self = {}; bless $self, $class; } sub b { } 1;