|
@@ -1,6 +1,6 @@
|
|
|
package MumbleBot::Client::Packet::Type;
|
|
|
|
|
|
-use strictures 2;
|
|
|
+use Modern::Perl;
|
|
|
|
|
|
use Scalar::Util qw(dualvar);
|
|
|
|
|
@@ -35,7 +35,7 @@ sub BEGIN {
|
|
|
SERVER_CONFIG => dualvar(24, 'ServerConfig'),
|
|
|
SUGGEST_CONFIG => dualvar(25, 'SuggestConfig'),
|
|
|
);
|
|
|
-
|
|
|
+
|
|
|
foreach my $type (keys %TYPES) {
|
|
|
constant->import($type, $TYPES{$type});
|
|
|
require "MumbleBot/Client/Protocol/$TYPES{$type}.pm";
|