package Net::RawIP::opt; use strict; use warnings; our $VERSION = '0.24'; use Class::Struct qw(struct); my @opt = qw(type len data); struct ( 'Net::RawIP::opt' => [map { $_ => '@' } @opt ] ); 1;