use strict;
use warnings;
-use Carp qw/croak/;
-use Encode qw/encode_utf8 is_utf8/;
-use Storable qw/freeze/;
+use Carp qw<croak>;
+use Encode qw<encode_utf8 is_utf8>;
+use Storable qw<freeze>;
-use Bit::MorseSignals qw/:consts/;
+use Bit::MorseSignals qw<:consts>;
=head1 NAME
# BM_DATA_{PLAIN, UTF8, STORABLE}
$type = BM_DATA_AUTO unless defined $type and exists $manglers[$type];
if (ref $msg) {
- return if { map { $_ => 1 } qw/CODE GLOB/ }->{ref $msg};
+ return if { map { $_ => 1 } qw<CODE GLOB> }->{ref $msg};
$type = BM_DATA_STORABLE;
} elsif ($type == BM_DATA_AUTO) {
$type = is_utf8($msg) ? BM_DATA_UTF8 : BM_DATA_PLAIN;
my ($self) = @_;
_check_self($self);
$self->{state} = @{$self->{queue}} > 0;
- @{$self}{qw/buf len pos/} = ();
+ @{$self}{qw<buf len pos>} = ();
return $self;
}