---
name: "WWW::Shorten::URLjr"
section: "3pm"
platform: "linux"
package: "libwww-shorten-perl"
version: "1.88-3"
release: "Debian 6.0 (Squeeze)"
platforms: ["linux"]
url: "https://new.carta.tech/WWW::Shorten::URLjr"
---

# WWW::Shorten::URLjr(3pm)

WWW::Shorten::URLjr - Perl interface to URLjr.com

```
  use WWW::Shorten 'URLjr';
```

```
  $short_url = makeashorterlink($long_url);
```

```
  $long_url  = makealongerlink($short_url);
  $long_url  = makealongerlink($nickname);
```

A Perl interface to the web site URLjr.com.  URLjr.com simply maintains a database of long URLs, each of which has a unique identifier. The function `"makeashorterlink"` will call the URLjr.com web site passing it your long URL and will return the shorter (URLjr) version. The function `"makealongerlink"` does the reverse. `"makealongerlink"` will accept as an argument either the full URLjr URL or just the URLjr identifier/nickname. If anything goes wrong, then either function will return `"undef"`. Multiple submissions of the same URL will result in the same code being returned.\
 **EXPORT** makeashorterlink, makealongerlink See the main WWW::Shorten docs. Iain Truskett \<spoon@cpan.org\> WWW::Shorten, perl, \<http://URLjr.com/\>