123456789101112131415 use Test;BEGIN { plan(tests => 1) }use Net::Frame::Layer::ICMPv4::Echo;my $l = Net::Frame::Layer::ICMPv4::Echo->new;$l->pack;$l->unpack;print $l->print."\n";my $encap = $l->encapsulate;$encap ? print "[$encap]\n" : print "[none]\n";ok(1);
use
Test;
BEGIN { plan(
tests
=> 1) }
Net::Frame::Layer::ICMPv4::Echo;
my
$l
= Net::Frame::Layer::ICMPv4::Echo->new;
->
pack
;
unpack
print
.
"\n"
$encap
=
->encapsulate;
?
"[$encap]\n"
:
"[none]\n"
ok(1);