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