+=head2 create_user
+
+=cut
+
+$worker->register_function( create_user => sub {
+ my ($job) = @_;
+
+ my $work = $job->arg;
+ chomp $work;
+ warn "# create_user [$work]\n";
+ my ( $email, $password, $quota ) = split(/\s+/,$work,3);
+ $quota ||= 200000 && warn "default quota";
+ $api->create_user( $email, $password, $quota );
+});
+