Source

p5-crypt-xkcdpassword / examples / filter-profanity.pl

Full commit
1
2
3
4
5
6
7
use feature 'say';
use Crypt::XkcdPassword;
use Regexp::Common;

say Crypt::XkcdPassword->make_password(4, sub {
	not /$RE{profanity}/
});