our @AS = qw(
   driver
   interface
   _drv
   _context
);

__PACKAGE__->cgBuildAccessorsScalar(\@AS);
__PACKAGE__->cgBuildIndices;

sub new {
   my $self = shift->SUPER::new(
      driver    => "madwifing",
      interface => "wlo1",
      @_,
   );

##</code><code>##

udo perl -e '
use Net::Lorcon2 qw( :subs );
my $lorcon = Net::Lorcon2->new();
use Data::Dumper; 
print Dumper($lorcon);
'

##</code><code>##

$VAR1 = bless( [
                 'madwifing',
                 'wlo1',
                 \152948280,
                 \152839568
               ], 'Net::Lorcon2' );