package Abstraction; use strict; sub new { my $class = shift; my $self = {}; $self->{absIF} = shift; bless $self, $class; } sub getAbstractionIF { my $self = shift; return $self->{absIF}; } sub x { my $self = shift; return $self->{absIF}->x(); } 1;