File Coverage

blib/lib/Socket/Netlink/Taskstats_const.pm
Criterion Covered Total %
statement 39 47 82.9
branch 0 2 0.0
condition n/a
subroutine 13 15 86.6
pod 0 2 0.0
total 52 66 78.7


line stmt bran cond sub pod time code
1             package Socket::Netlink::Taskstats;
2             # This module was generated automatically by ExtUtils::H2PM from lib/Socket/Netlink/Taskstats_const.pm.PL
3              
4 2     2   9 use Carp;
  2         12  
  2         230  
5             push @EXPORT, 'CMD_UNSPEC', 'CMD_GET', 'CMD_NEW', 'TYPE_PID', 'TYPE_TGID', 'TYPE_STATS', 'TYPE_AGGR_PID', 'TYPE_AGGR_TGID', 'CMD_ATTR_PID', 'CMD_ATTR_TGID', 'CMD_ATTR_REGISTER_CPUMASK', 'CMD_ATTR_DEREGISTER_CPUMASK', 'pack_taskstats', 'unpack_taskstats';
6 2     2   14 use constant CMD_UNSPEC => 0;
  2         4  
  2         159  
7 2     2   11 use constant CMD_GET => 1;
  2         14  
  2         81  
8 2     2   11 use constant CMD_NEW => 2;
  2         2  
  2         91  
9 2     2   10 use constant TYPE_PID => 1;
  2         2  
  2         71  
10 2     2   9 use constant TYPE_TGID => 2;
  2         3  
  2         105  
11 2     2   10 use constant TYPE_STATS => 3;
  2         4  
  2         82  
12 2     2   11 use constant TYPE_AGGR_PID => 4;
  2         3  
  2         159  
13 2     2   9 use constant TYPE_AGGR_TGID => 5;
  2         3  
  2         101  
14 2     2   11 use constant CMD_ATTR_PID => 1;
  2         8  
  2         71  
15 2     2   10 use constant CMD_ATTR_TGID => 2;
  2         11  
  2         122  
16 2     2   9 use constant CMD_ATTR_REGISTER_CPUMASK => 3;
  2         4  
  2         88  
17 2     2   10 use constant CMD_ATTR_DEREGISTER_CPUMASK => 4;
  2         2  
  2         695  
18              
19             sub pack_taskstats
20             {
21 0 0   0 0   ref($_[0]) eq "HASH" or croak "usage: pack_taskstats(\%args)";
22 0           my @v = @{$_[0]}{'version', 'ac_exitcode', 'ac_flag', 'ac_nice', 'cpu_count', 'cpu_delay_total', 'blkio_count', 'blkio_delay_total', 'swapin_count', 'swapin_delay_total', 'cpu_run_real_total', 'cpu_run_virtual_total', 'ac_comm', 'ac_sched', 'ac_uid', 'ac_gid', 'ac_pid', 'ac_ppid', 'ac_btime', 'ac_etime', 'ac_utime', 'ac_stime', 'ac_minflt', 'ac_majflt', 'coremem', 'virtmem', 'hiwater_rss', 'hiwater_vm', 'read_char', 'write_char', 'read_syscalls', 'write_syscalls', 'read_bytes', 'write_bytes', 'cancelled_write_bytes', 'nvcsw', 'nivcsw', 'ac_utimescaled', 'ac_stimescaled', 'cpu_scaled_run_real_total', 'freepages_count', 'freepages_delay_total'};
  0            
23 0           pack "S xxL C C xxxxxxQ Q Q Q Q Q Q Q Z32 C xxxxxxxL L L L L xxxxQ Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q ", @v;
24             }
25              
26             sub unpack_taskstats
27             {
28              
29 0     0 0   my @v = unpack "S xxL C C xxxxxxQ Q Q Q Q Q Q Q Z32 C xxxxxxxL L L L L xxxxQ Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q ", $_[0];
30 0           my %ret; @ret{'version', 'ac_exitcode', 'ac_flag', 'ac_nice', 'cpu_count', 'cpu_delay_total', 'blkio_count', 'blkio_delay_total', 'swapin_count', 'swapin_delay_total', 'cpu_run_real_total', 'cpu_run_virtual_total', 'ac_comm', 'ac_sched', 'ac_uid', 'ac_gid', 'ac_pid', 'ac_ppid', 'ac_btime', 'ac_etime', 'ac_utime', 'ac_stime', 'ac_minflt', 'ac_majflt', 'coremem', 'virtmem', 'hiwater_rss', 'hiwater_vm', 'read_char', 'write_char', 'read_syscalls', 'write_syscalls', 'read_bytes', 'write_bytes', 'cancelled_write_bytes', 'nvcsw', 'nivcsw', 'ac_utimescaled', 'ac_stimescaled', 'cpu_scaled_run_real_total', 'freepages_count', 'freepages_delay_total'} = @v;
  0            
31 0           \%ret;
32             }
33              
34             1;