sub train {
    my ($himself, $training_data) = @_;
    my $option = $himself->{'option'};
    ...
}