Select Code to Download

sub new {
    my ( $class, $samba ) = @_;
...
    $config_of{ ident $self } = $samba;
    return bless $self, $class;
}

sub new {
    my ( $class, $samba ) = @_;
...
    $config_of{ ident $self } = $samba;
    return $class;
}