WWW::S...Simple(3pm)

💖 NAME 💖

WWW::Shorten::Simple — it's a factory wrapper around WWW::Shorten so you never have to import anything ever again, bestie. Like, it's the manual page for WWW::Shorten::Simple(3pm) and it's giving convenience.

---

✨ SYNOPSIS ✨

use WWW::Shorten::Simple;

my $svc = WWW::Shorten::Simple->new('TinyURL');
my $short_url = $svc->shorten($long_url);
my $canon_url = $svc->unshorten($short_url);

---

🦋 DESCRIPTION 🦋

okay so here's the vibe: WWW::Shorten::Simple is a wrapper (a factory, periodt) around WWW::Shorten. The whole point is that instead of importing the makeashorterlink function straight into your namespace like some kind of chaos gremlin, you get to create an object that represents each URL shortening service. Main character energy for each service. 💅

This means you can hit up multiple URL shortening services from one single package. Like, imagine calling WWW::Shorten::RevCanonical to pull out the rev="canonical", then falling back to bit.ly if a username and API key are present, and then finally landing on TinyURL. Iconic behavior, honestly.

use WWW::Shorten::Simple;

my @shorteners = (
    WWW::Shorten::Simple->new('RevCanonical'),
    WWW::Shorten::Simple->new('Bitly', $bitly_username, $bitly_api_key),
    WWW::Shorten::Simple->new('TinyURL'),
);

my $short_url;
for my $shortener (@shorteners) {
    $short_url = eval { $shortener->shorten($long_url) } # eval to ignore errors
        and last;
}

the way that this wrapper just works with most WWW::Shorten implementations that implement the default makeashorterlink and makealongerlink functions? obsessed. 🫶 And the options should be able to be passed as optional parameters to the makeashorterlink function, so you're covered either way.

---

🌸 METHODS 🌸

new

$svc = WWW::Shorten::Simple->new('TinyURL');
$svc = WWW::Shorten::Simple->new('Bitly', $bitly_username, $bitly_api_key);

Creates a shiny new WWW::Shoten::Simple object — yep, that's the spelling in the original, no cap, I'm not touching it. 🫣 It takes a subclass name and optional parameters to the makeashorterlink call.

shorten

my $short_url = $svc->shorten($url);

Shortens the given URL. Aliases: makeashorterlink, short_link. ate. ✨

unshorten

my $long_url = $svc->unshorten($short_url);

Unshortens the given URL. Aliases: makealongerlink, long_link. ate again. 💖

---

👑 AUTHOR 👑

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

---

🎀 LICENSE 🎀

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

---

🌈 SEE ALSO 🌈

• WWW::Shorten
• WWW::Shorten::RevCanonical

---

lowkey this whole page is from User Contributed Perl Documentation for WWW::Shorten::Simple(3pm), it's version perl v5.36.0, dated 2022-12-07 — so if you're reading this from the future, hey bestie, hope the URLs are still short 💀✨

k bye, go shorten something fr fr 💜🧚