File Coverage

blib/lib/Bit/Manip.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	12	13	92.3
pod	9	9	100.0
total	61	62	98.3

package Bit::Manip;

use warnings;
use strict;

our $VERSION = '1.04';

require XSLoader;
XSLoader::load('Bit::Manip', $VERSION);

use Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(
    bit_get
    bit_set
    bit_clr
    bit_bin
    bit_count
    bit_mask
    bit_tog
    bit_toggle
    bit_on
    bit_off
);

our %EXPORT_TAGS;
$EXPORT_TAGS{all} = [@EXPORT_OK];

sub bit_bin {
    my ($data) = @_;
    return sprintf("%b", $data);
}
sub bit_count {
    my ($n, $set) = @_;

    if (! defined $n || $n !~ /^\d+/){
        die "bit_count() requires an integer param\n";
    }

    $set = 0 if ! defined $set;

    return _bit_count($n, $set);
}
sub bit_mask {
    my ($nbits, $lsb) = @_;
    return _bit_mask($nbits, $lsb);
}
sub bit_get {
    my ($data, $msb, $lsb) = @_;

    $lsb = 0 if ! defined $lsb;

    _bit_get($data, $msb, $lsb);
}
sub bit_clr {
    my ($data, $lsb, $nbits) = @_;
    return _bit_set($data, $lsb, $nbits, 0);
}
sub bit_set {
    my ($data, $lsb, $nbits, $value) = @_;
    return _bit_set($data, $lsb, $nbits, $value);
}

# alias bit_toggle() into play

*bit_toggle = \&bit_tog;

sub bit_tog {
    my ($data, $bit) = @_;
    return _bit_tog($data, $bit);
}
sub bit_on {
    my ($data, $bit) = @_;
    return _bit_on($data, $bit);
}
sub bit_off {
    my ($data, $bit) = @_;
    return _bit_off($data, $bit);
}
sub _vim{};

1;
__END__