File Coverage

blib/lib/AnyEvent/Pcap/Utils.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	3	3	100.0
total	23	41	56.1

package AnyEvent::Pcap::Utils;
use strict;
use warnings;
use NetPacket::Ethernet;
use NetPacket::IP;
use NetPacket::TCP;

sub new {
    my $class = shift;
    my $self = bless {@_}, $class;
    return $self;
}

sub extract_ip_packet {
    my $self       = shift;
    my $raw_packet = shift;
    my $raw_ip     = NetPacket::Ethernet->decode($raw_packet)->{data};
    my $ip         = NetPacket::IP->decode($raw_ip);
    return $ip;
}

sub extract_tcp_packet {
    my $self       = shift;
    my $raw_packet = shift;
    my $raw_ip     = NetPacket::Ethernet->decode($raw_packet)->{data};
    my $ip         = NetPacket::IP->decode($raw_ip);
    my $raw_tcp    = substr( $ip->{data}, 0, $ip->{len} - ( $ip->{hlen} * 4 ) );
    my $tcp        = NetPacket::TCP->decode($raw_tcp);
    return $tcp;
}

1;
__END__