File Coverage

blib/lib/Bit/Manip.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition	2	3	66.6
subroutine	11	12	91.6
pod	8	8	100.0
total	56	58	96.5

package Bit::Manip;

use warnings;
use strict;

our $VERSION = '1.02';

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

use Exporter qw(import);

our @EXPORT_OK = qw(
    bit_bin
    bit_count
    bit_mask
    bit_get
    bit_set
    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 ($bits, $lsb) = @_;
    return _bit_mask($bits, $lsb);
}
sub bit_get {
    my ($data, $msb, $lsb) = @_;

    $lsb = 0 if ! defined $lsb;

    _bit_get($data, $msb, $lsb);
}
sub bit_set {
    my ($data, $lsb, $bits, $value) = @_;
    return _bit_set($data, $lsb, $bits, $value);
}
sub bit_toggle {
    my ($data, $bit) = @_;
    return _bit_toggle($data, $bit);
}
sub bit_on {
    my ($data, $bit) = @_;
    return _bit_toggle($data, $bit);
}
sub bit_off {
    my ($data, $bit) = @_;
    return _bit_toggle($data, $bit);
}
sub _vim{};

1;
__END__