package KLARF;

use strict;
use warnings;

use Class::Accessor qw( );

our @ISA = 'Class::Accessor';

__PACKAGE__->mk_accessors(qw( foo ));

sub more {
    __PACKAGE__->mk_accessors(qw( bar ));
}

1;