package SpecializedAbstractionA;
use strict;
use base qw(Abstraction);

sub new {
  my $class = shift;
  my $self = {};
  my $specAbsAIF = shift;
  $self = $class->SUPER::new($specAbsAIF);
  bless $self, $class;
}
sub a {
 my $self = shift;
 my $specAbsAIF = $self->getAbstractionIF();
 $specAbsAIF->a();
}
1;