package Letter_B;

use strict;
use warnings;

our @ISA = qw( Letter );

sub new {
    my $class = shift;

    my %_hash = ( my_type => $class, letter => q{B}, );

    bless \%_hash, $class;
}

1;