File Coverage

lib/Archive/Lha/Constants.pm

Criterion	Covered	Total	%
statement	35	37	94.5
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	41	45	91.1

package Archive::Lha::Constants;

use strict;
use warnings;

sub import {
  my $class  = shift;
  my $caller = caller;

  my %size = ( CHAR => 1, UCHAR => 1, USHORT => 2 );
  my %const;
  foreach my $type ( keys %size ) {
    $const{$type.'_SIZE'} = $size{$type};
    $const{$type.'_BIT'}  = $size{$type} * 8;
    $const{$type.'_MAX'}  = ( 1 << $size{$type} * 8 ) - 1;
  }
  $const{USHORT_CENTER} = int( ( $const{USHORT_MAX} + 1 ) / 2 );

  {
    no strict 'refs';
    foreach my $key ( keys %const ) {
      *{"$caller\::$key"} = sub () { $const{$key} };
    }
    *{"$caller\::_ushort"} = sub { shift() & $const{USHORT_MAX} };
    *{"$caller\::_uchar"}  = sub { shift() & $const{UCHAR_MAX} };
    *{"$caller\::_bit_length"} = \&_bit_length;
  }
}

sub _bit_length {
  my $bits   = shift;
  my $length = 0;
  while ( $bits ) { $bits >>= 1; $length++; }
  return $length;
}

1;

__END__