package Gate88::Bot::Core::KeyManager; use strict; use warnings; sub new { my $class = shift; my $gs = shift; my $nm = shift; my $self = bless({ 'gs' => $gs, 'nm' => $nm, }, $class); return $self; } 1;