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


line stmt bran cond sub pod time code
1             package Udev::FFI::Devnum;
2              
3 1     1   2423 use strict;
  1         2  
  1         33  
4 1     1   4 use warnings;
  1         2  
  1         157  
5              
6             our (@ISA, @EXPORT_OK, %EXPORT_TAGS);
7              
8             require Exporter;
9             @ISA = qw(Exporter);
10              
11              
12             %EXPORT_TAGS = (
13             'all' => [qw(major minor mkdev)]
14             );
15              
16              
17             @EXPORT_OK = ( map {@{$_}} values %EXPORT_TAGS );
18              
19              
20              
21             sub major($) {
22 0     0 0   $_[0]>>8;
23             }
24              
25              
26             sub minor($) {
27 0     0 0   $_[0]&0xff;
28             }
29              
30              
31             sub mkdev($$) {
32 0     0 0   $_[0]<<8 | $_[1];
33             }
34              
35              
36              
37             1;