package ConcreteClass2;
use strict;
use base qw(AbstractClass);

sub new {
  my $class = shift;
  my $self = {};
  bless $self, $class;
}
sub primitiveOperation1 {}
sub primitiveOperation2 {}
1;