package AbstractionImpl1; use strict; use base qw(AbstractionIF); sub new { my $class = shift; my $self = {}; bless $self, $class; } sub x { } 1;