gistfile1.txt

use 5.14.0;
package Class::Acessor::Mouse {
    use Mouse;

    sub import {
        my ($class, %args) = @_; 
        my $meta = Mouse->init_meta(for_class => scalar caller);
        for my $type (qw(rw ro wo)) {
            next unless ref $args{$type} eq 'ARRAY';
            $class->_add_attribute($meta, $type, $args{$type});
        }   
        $meta->make_immutable();
    };      sub _add_attribute {
        my ($class, $meta, $type, $attrs) = @_; 
        $meta->add_attribute($_, is => $type) for @$attrs;
    }   
};

package Hoge {
    Class::Acessor::Mouse->import(
        rw => [qw/foo bar/],
    );  
};

say Hoge->new->foo('bar');