view release on metacpan or  search on metacpan

t/04-ripng.t  view on Meta::CPAN

use Test;
BEGIN { plan(tests => 1) }

use Net::Frame::Layer::RIPng qw(:consts);

my $l = Net::Frame::Layer::RIPng->new;
$l->pack;
$l->unpack;

print $l->print."\n";

my $encap = $l->encapsulate;
$encap ? print "[$encap]\n" : print "[none]\n";

ok(1);