For zentooo

atokatamo_nai.pl

#!/usr/bin/env perl

use strict;
use warnings;

package Test::User;

use Data::RuledFactory::Declare;

factory {
    name "Default";
    define "id" => ( Sequence => +{} );
    define "name" => ( StringRandom => +{ data => q|\w{8,10}| } );
};

package main;

use Data::Dump qw(dump);

my $default_user = Test::User->build("Default");

dump($default_user);