sub new {
    my $class = shift;
    my $self  = {
        _txt => shift
    };
    bless $self, $class;
    $self->_sub1();
    return $self;
}