|
388
|
2 |
7 |
0 |
our $SOURCE ||= do {
$Text::Lorem::More::SOURCE = 'Text::Lorem::More::Source'->new;
$Text::Lorem::More::SOURCE->push({absolutepath => '', description => sub {
['+sentence', 1 + int(rand 3)];
}
, domain => 'domainname', domainname => [['example.+tld']], email => [['+word@+hostname'], ['+word@+domainname']], firstname => 'name', fullname => sub {
['+firstname +lastname'];
}
, host => 'hostname', hostname => [['+word.+domainname'], ['+domainname']], httpurl => [['http://+hostname+path'], ['http://+hostname:+port+path']], lastname => 'name', mail => 'email', mailto => \'mailto:+email', name => sub {
[sub {
ucfirst lc $_;
}
, '+word'];
}
, paragraph => sub {
['+sentence', 3 + int(rand 4)];
}
, paragraphs => sub {
my $lorem = shift();
$Text::Lorem::More::PRUNE = 1;
my $count = $Text::Lorem::More::COUNT;
my @paragraph;
while ($count > 0) {
push @paragraph, $lorem->sentences(3 + int(rand 4));
--$count;
} ;
return join("\n\n", @paragraph);
}
, path => sub {
['+word', 1 + int(rand 6), '/'];
}
, port => sub {
int rand 32769;
}
, relativepath => '', sentence => sub {
[sub {
ucfirst($_) . '.';
}
, '+word', 4 + int(rand 6)];
}
, sentences => sub {
my $lorem = shift();
$Text::Lorem::More::PRUNE = 1;
my $count = $Text::Lorem::More::COUNT;
my @sentence;
while ($count > 0) {
push @sentence, ucfirst $lorem->words(4 + int(rand 6));
--$count;
} ;
return join('. ', @sentence) . '.';
}
, title => sub {
[sub {
ucfirst $_;
}
, '+word', 1 + int(rand 3)];
}
, tld => 'topleveldomain', topleveldomain => ['com', 'org', 'net'], username => 'word', word => ['alias', 'consequatur', 'aut', 'perferendis', 'sit', 'voluptatem', 'accusantium', 'doloremque', 'aperiam', 'eaque', 'ipsa', 'quae', 'ab', 'illo', 'inventore', 'veritatis', 'et', 'quasi', 'architecto', 'beatae', 'vitae', 'dicta', 'sunt', 'explicabo', 'aspernatur', 'aut', 'odit', 'aut', 'fugit', 'sed', 'quia', 'consequuntur', 'magni', 'dolores', 'eos', 'qui', 'ratione', 'voluptatem', 'sequi', 'nesciunt', 'neque', 'dolorem', 'ipsum', 'quia', 'dolor', 'sit', 'amet', 'consectetur', 'adipisci', 'velit', 'sed', 'quia', 'non', 'numquam', 'eius', 'modi', 'tempora', 'incidunt', 'ut', 'labore', 'et', 'dolore', 'magnam', 'aliquam', 'quaerat', 'voluptatem', 'ut', 'enim', 'ad', 'minima', 'veniam', 'quis', 'nostrum', 'exercitationem', 'ullam', 'corporis', 'nemo', 'enim', 'ipsam', 'voluptatem', 'quia', 'voluptas', 'sit', 'suscipit', 'laboriosam', 'nisi', 'ut', 'aliquid', 'ex', 'ea', 'commodi', 'consequatur', 'quis', 'autem', 'vel', 'eum', 'iure', 'reprehenderit', 'qui', 'in', 'ea', 'voluptate', 'velit', 'esse', 'quam', 'nihil', 'molestiae', 'et', 'iusto', 'odio', 'dignissimos', 'ducimus', 'qui', 'blanditiis', 'praesentium', 'laudantium', 'totam', 'rem', 'voluptatum', 'deleniti', 'atque', 'corrupti', 'quos', 'dolores', 'et', 'quas', 'molestias', 'excepturi', 'sint', 'occaecati', 'cupiditate', 'non', 'provident', 'sed', 'ut', 'perspiciatis', 'unde', 'omnis', 'iste', 'natus', 'error', 'similique', 'sunt', 'in', 'culpa', 'qui', 'officia', 'deserunt', 'mollitia', 'animi', 'id', 'est', 'laborum', 'et', 'dolorum', 'fuga', 'et', 'harum', 'quidem', 'rerum', 'facilis', 'est', 'et', 'expedita', 'distinctio', 'nam', 'libero', 'tempore', 'cum', 'soluta', 'nobis', 'est', 'eligendi', 'optio', 'cumque', 'nihil', 'impedit', 'quo', 'porro', 'quisquam', 'est', 'qui', 'minus', 'id', 'quod', 'maxime', 'placeat', 'facere', 'possimus', 'omnis', 'voluptas', 'assumenda', 'est', 'omnis', 'dolor', 'repellendus', 'temporibus', 'autem', 'quibusdam', 'et', 'aut', 'consequatur', 'vel', 'illum', 'qui', 'dolorem', 'eum', 'fugiat', 'quo', 'voluptas', 'nulla', 'pariatur', 'at', 'vero', 'eos', 'et', 'accusamus', 'officiis', 'debitis', 'aut', 'rerum', 'necessitatibus', 'saepe', 'eveniet', 'ut', 'et', 'voluptates', 'repudiandae', 'sint', 'et', 'molestiae', 'non', 'recusandae', 'itaque', 'earum', 'rerum', 'hic', 'tenetur', 'a', 'sapiente', 'delectus', 'ut', 'aut', 'reiciendis', 'voluptatibus', 'maiores', 'doloribus', 'asperiores', 'repellat'], words => sub {
$Text::Lorem::More::PRUNE = 1;
return ['+word', $Text::Lorem::More::COUNT, ' '];
}
});
$Text::Lorem::More::SOURCE
} |