Data::Fake::Examples3pm

URLs

    # http://example.com/
    # https://www.example.com/
    # http://www23.example.com/
    use Data::Fake qw/Core Internet/;
    my $fake_url = fake_template(
        "%s://%s%s/",
        fake_pick(qw(http https)),
        fake_pick( "", "www.", fake_digits("www##.") ),
        fake_domain(),
    );