use Encoder::B;
use Encoder::Whatever;

our %Encoder_Table => (
    'b' => 'Encoder::B',
    'c' => 'Encoder::Whatever',
);

sub encoder_factory {
  my ($e) = @_;

  exists $Encoder_Table{$e} 
    or die "'$e' is not a valid type of encoder, sorry!";

  return $Encoder_Table{$e}->new();
}