File Coverage

blib/lib/Linux/SocketFilter_const.pm

Criterion	Covered	Total	%
statement	141	141	100.0
branch	2	4	50.0
condition			n/a
subroutine	47	47	100.0
pod	2	2	100.0
total	192	194	98.9

package Linux::SocketFilter;
# This module was generated automatically by ExtUtils::H2PM from lib/Linux/SocketFilter_const.pm.PL

use Carp;
push @EXPORT_OK, 'SO_ATTACH_FILTER', 'SO_DETACH_FILTER', 'pack_sock_filter', 'unpack_sock_filter', 'BPF_LD', 'BPF_LDX', 'BPF_ST', 'BPF_STX', 'BPF_ALU', 'BPF_JMP', 'BPF_RET', 'BPF_MISC', 'BPF_W', 'BPF_H', 'BPF_B', 'BPF_IMM', 'BPF_ABS', 'BPF_IND', 'BPF_MEM', 'BPF_LEN', 'BPF_MSH', 'BPF_ADD', 'BPF_SUB', 'BPF_MUL', 'BPF_DIV', 'BPF_OR', 'BPF_AND', 'BPF_LSH', 'BPF_RSH', 'BPF_NEG', 'BPF_JA', 'BPF_JEQ', 'BPF_JGT', 'BPF_JGE', 'BPF_JSET', 'BPF_K', 'BPF_X', 'BPF_A', 'BPF_TAX', 'BPF_TXA', 'SKF_AD_OFF', 'SKF_AD_PROTOCOL', 'SKF_AD_PKTTYPE', 'SKF_AD_IFINDEX', 'SKF_NET_OFF', 'SKF_LL_OFF';
use constant SO_ATTACH_FILTER => 26;
use constant SO_DETACH_FILTER => 27;

sub pack_sock_filter
{
   @_ == 4 or croak "usage: pack_sock_filter(code, jt, jf, k)";
   my @v = @_;
   pack "S C C L ", @v;
}

sub unpack_sock_filter
{
   length $_[0] == 8 or croak "unpack_sock_filter: expected 8 bytes, got " . length $_[0];
   my @v = unpack "S C C L ", $_[0];
   @v;
}
use constant BPF_LD => 0;
use constant BPF_LDX => 1;
use constant BPF_ST => 2;
use constant BPF_STX => 3;
use constant BPF_ALU => 4;
use constant BPF_JMP => 5;
use constant BPF_RET => 6;
use constant BPF_MISC => 7;
use constant BPF_W => 0;
use constant BPF_H => 8;
use constant BPF_B => 16;
use constant BPF_IMM => 0;
use constant BPF_ABS => 32;
use constant BPF_IND => 64;
use constant BPF_MEM => 96;
use constant BPF_LEN => 128;
use constant BPF_MSH => 160;
use constant BPF_ADD => 0;
use constant BPF_SUB => 16;
use constant BPF_MUL => 32;
use constant BPF_DIV => 48;
use constant BPF_OR => 64;
use constant BPF_AND => 80;
use constant BPF_LSH => 96;
use constant BPF_RSH => 112;
use constant BPF_NEG => 128;
use constant BPF_JA => 0;
use constant BPF_JEQ => 16;
use constant BPF_JGT => 32;
use constant BPF_JGE => 48;
use constant BPF_JSET => 64;
use constant BPF_K => 0;
use constant BPF_X => 8;
use constant BPF_A => 16;
use constant BPF_TAX => 0;
use constant BPF_TXA => 128;
use constant SKF_AD_OFF => -4096;
use constant SKF_AD_PROTOCOL => 0;
use constant SKF_AD_PKTTYPE => 4;
use constant SKF_AD_IFINDEX => 8;
use constant SKF_NET_OFF => -1048576;
use constant SKF_LL_OFF => -2097152;

1;