/usr/local/CPAN/Net-RawIP/Net/RawIP/iphdr.pm

• package Net::RawIP::iphdr
• EOF

package Net::RawIP::iphdr;
use strict;
use warnings;
our $VERSION = '0.24';
use Class::Struct qw(struct);
our @iphdr
    = qw(version ihl tos tot_len id frag_off ttl protocol check saddr daddr);
struct ( 'Net::RawIP::iphdr' => [ map { $_ => '$' } @iphdr ] );

1;