Select Code to Download

sub new {
    my $package = shift;
    my %attributes = %{ shift() };
...
      or die "Attribute list malformatted";
    bless { %botInfo }, $package;
  }

for (qw/ name prefix server password port channel /) {
  $attributes{$_} or die "Missing attribute '$_'";
}