package Adapter;
use strict;
use base qw(TargetIF);
use Adaptee;

sub new {
  my $class = shift;
  my $self = {};
  $self->{adaptee} = Adaptee->new();
  bless $self, $class;
}
sub newOperation {
  my $self = shift;
  $self->{adaptee}->legacyOperation();
}
1;