package L;
use strict;
use warnings;
use Test::More tests => 5;
use_ok('Class::Accessor::Lite');
Class::Accessor::Lite->mk_new_and_accessors(qw(foo bar));
ok ! $@, 'call mk_new_and_accessors';
my $l = L->new(
foo => 2,
);
is ref($l), 'L';
is $l->foo, 2;
ok ! defined $l->bar;