my $type = 2 * vec($self->{buf}, 1, 1)
+ vec($self->{buf}, 0, 1);
$type = BM_DATA_PLAIN if vec($self->{buf}, 2, 1);
my $type = 2 * vec($self->{buf}, 1, 1)
+ vec($self->{buf}, 0, 1);
$type = BM_DATA_PLAIN if vec($self->{buf}, 2, 1);
- @{$self}{qw/state type buf len/} = (3, $type, '', 0);
+ @{$self}{qw<state type buf len>} = (3, $type, '', 0);
= (1, '', $bit, 1, '', 0 );
vec($self->{sig}, 0, 1) = $bit;
= (1, '', $bit, 1, '', 0 );
vec($self->{sig}, 0, 1) = $bit;