File Coverage

blib/lib/Udev/FFI/Devnum.pm

Criterion	Covered	Total	%
statement	6	9	66.6
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	17	47.0

package Udev::FFI::Devnum;

use strict;
use warnings;

our (@ISA, @EXPORT_OK, %EXPORT_TAGS);

require Exporter;
@ISA = qw(Exporter);

@EXPORT_OK = qw(major minor mkdev);

%EXPORT_TAGS = (
    'all' => \@EXPORT_OK
);



sub major($) {
    $_[0]>>8;
}


sub minor($) {
    $_[0]&0xff;
}


sub mkdev($$) {
    $_[0]<<8 | $_[1];
}



1;