#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper qw(Dumper);
use English qw( -no_match_vars );
use Test::More;
my $tests;
plan tests => $tests;
use Net::RawIP qw{ :pcap };
is( test_undef(), 1, 'no_undefs' );
BEGIN { $tests += 1; }
sub test_undef {
my $raw = Net::RawIP->new({
icmp => {}
});
$raw->set({
icmp => {
type => 8,
id => $$
},
});
return 0 if grep {!defined($_)} @{ $raw->{icmphdr} };
return 1;
}