WWW-Shorten-3.08000755001750001750 012634016011 12563 5ustar00davedave000000000000WWW-Shorten-3.08/AUTHORS000444001750001750 70512634016011 13752 0ustar00davedave000000000000 Here is a list of people and their CPAN id, extracted from various places. These people have either submitted patches or suggestions, or their bug reports or comments have inspired the appropriate patches. Corrections, additions, deletions welcome: Kevin Gilbertson (Gilby) Iain Truskett (SPOON) Matt Felsen (mattf) In 2004, Dave Cross (CPAN id DAVECROSS) look over maintenance of this distribution following the death of Iain Truskett. WWW-Shorten-3.08/LICENCE000444001750001750 105612634016011 13707 0ustar00davedave000000000000LICENCE FOR WWW::Shorten 3.03 WWW::Shorten::NotLong copyright (c) Eric Hammond . Other modules copyright (c) Magnum Solutions Ltd., 2007. All rights reserved. Other modules copyright © Iain Truskett, 2002-2003. All rights reserved. This module is free software. You can redistribute it and/or modify it under the terms of the Artistic License 2.0. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. WWW-Shorten-3.08/Artistic000444001750001750 2067512634016011 14457 0ustar00davedave000000000000 The "Artistic License 2.0" Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble This license establishes the terms under which a given free software Package may be copied, modified, distributed, and/or redistributed. The intent is that the Copyright Holder maintains some artistic control over the development of that Package while still keeping the Package available as open source and free software. You are always permitted to make arrangements wholly outside of this license directly with the Copyright Holder of a given Package. If the terms of this license do not permit the full use that you propose to make of the Package, you should contact the Copyright Holder and seek a different licensing arrangement. Definitions "Copyright Holder" means the individual(s) or organization(s) named in the copyright notice for the entire Package. "Contributor" means any party that has contributed code or other material to the Package, in accordance with the Copyright Holder's procedures. "You" and "your" means any person who would like to copy, distribute, or modify the Package. "Package" means the collection of files distributed by the Copyright Holder, and derivatives of that collection and/or of those files. A given Package may consist of either the Standard Version, or a Modified Version. "Distribute" means providing a copy of the Package or making it accessible to anyone else, or in the case of a company or organization, to others outside of your company or organization. "Distributor Fee" means any fee that you charge for Distributing this Package or providing support for this Package to another party. It does not mean licensing fees. "Standard Version" refers to the Package if it has not been modified, or has been modified only in ways explicitly requested by the Copyright Holder. "Modified Version" means the Package, if it has been changed, and such changes were not explicitly requested by the Copyright Holder. "Original License" means this Artistic License as Distributed with the Standard Version of the Package, in its current version or as it may be modified by The Perl Foundation in the future. "Source" form means the source code, documentation source, and configuration files for the Package. "Compiled" form means the compiled bytecode, object code, binary, or any other form resulting from mechanical transformation or translation of the Source form. Permission for Use and Modification Without Distribution (1) You are permitted to use the Standard Version and create and use Modified Versions for any purpose without restriction, provided that you do not Distribute the Modified Version. Permissions for Redistribution of the Standard Version (2) You may Distribute verbatim copies of the Source form of the Standard Version of this Package in any medium without restriction, either gratis or for a Distributor Fee, provided that you duplicate all of the original copyright notices and associated disclaimers. At your discretion, such verbatim copies may or may not include a Compiled form of the Package. (3) You may apply any bug fixes, portability changes, and other modifications made available from the Copyright Holder. The resulting Package will still be considered the Standard Version, and as such will be subject to the Original License. Distribution of Modified Versions of the Package as Source (4) You may Distribute your Modified Version as Source (either gratis or for a Distributor Fee, and with or without a Compiled form of the Modified Version) provided that you clearly document how it differs from the Standard Version, including, but not limited to, documenting any non-standard features, executables, or modules, and provided that you do at least ONE of the following: (a) make the Modified Version available to the Copyright Holder of the Standard Version, under the Original License, so that the Copyright Holder may include your modifications in the Standard Version. (b) ensure that installation of your Modified Version does not prevent the user installing or running the Standard Version. In addition, the Modified Version must bear a name that is different from the name of the Standard Version. (c) allow anyone who receives a copy of the Modified Version to make the Source form of the Modified Version available to others under (i) the Original License or (ii) a license that permits the licensee to freely copy, modify and redistribute the Modified Version using the same licensing terms that apply to the copy that the licensee received, and requires that the Source form of the Modified Version, and of any works derived from it, be made freely available in that license fees are prohibited but Distributor Fees are allowed. Distribution of Compiled Forms of the Standard Version or Modified Versions without the Source (5) You may Distribute Compiled forms of the Standard Version without the Source, provided that you include complete instructions on how to get the Source of the Standard Version. Such instructions must be valid at the time of your distribution. If these instructions, at any time while you are carrying out such distribution, become invalid, you must provide new instructions on demand or cease further distribution. If you provide valid instructions or cease distribution within thirty days after you become aware that the instructions are invalid, then you do not forfeit any of your rights under this license. (6) You may Distribute a Modified Version in Compiled form without the Source, provided that you comply with Section 4 with respect to the Source of the Modified Version. Aggregating or Linking the Package (7) You may aggregate the Package (either the Standard Version or Modified Version) with other packages and Distribute the resulting aggregation provided that you do not charge a licensing fee for the Package. Distributor Fees are permitted, and licensing fees for other components in the aggregation are permitted. The terms of this license apply to the use and Distribution of the Standard or Modified Versions as included in the aggregation. (8) You are permitted to link Modified and Standard Versions with other works, to embed the Package in a larger work of your own, or to build stand-alone binary or bytecode versions of applications that include the Package, and Distribute the result without restriction, provided the result does not expose a direct interface to the Package. Items That are Not Considered Part of a Modified Version (9) Works (including, but not limited to, modules and scripts) that merely extend or make use of the Package, do not, by themselves, cause the Package to be a Modified Version. In addition, such works are not considered parts of the Package itself, and are not subject to the terms of this license. General Provisions (10) Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license. (11) If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. (12) This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. (13) This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed. (14) Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. WWW-Shorten-3.08/INSTALL000444001750001750 502212634016011 13750 0ustar00davedave000000000000Installation Instructions The instructions are basically as per any Perl module. INSTALLING AUTOMATICALLY ------------------------ The easiest way to install is via CPAN or CPANPLUS: CPAN: % perl -MCPAN -e shell [as root] > install WWW::Shorten > quit CPANPLUS: % cpanp > i WWW::Shorten > q See your local 'perldoc CPAN' or 'perldoc CPANPLUS' for instructions on setting up and configuring CPAN or CPANPLUS. OBTAINING THE MODULE -------------------- The latest release version of WWW::Shorten can be downloaded from any CPAN site: https://metacpan.org/release/WWW-Shorten/ Interim and development versions may also be available from github: http://github.com/davorg/www-shorten WWW::Shorten is distributed as a gzipped tar archive file: WWW-Shorten-.tar.gz where represents the current version number, e.g. 1.88. To install the module, unpack the distribution archive to create an installation directory. Something like this: tar zxf WWW-Shorten-1.88.tar.gz or gunzip WWW-Shorten-1.88.tar.gz tar xf WWW-Shorten-1.88.tar You can then 'cd' into the directory created, cd WWW-Shorten-1.88 INSTALLING MANUALLY ------------------- The 'make install' (done later) will install the modules and scripts on your system. You may need administrator privileges to perform this task. Alternately you can install the module to a local directory (see ExtUtils::MakeMaker for full details), e.g. % perl Makefile.PL PREFIX=/home/abw/ Don't forget to update your PERL5LIB environment variable if you do this, or add a line to your script to tell Perl where to find the files, e.g. use lib qw( /home/abw/lib/perl5/site_perl/5.6.0 ); If you're not after a custom location, just do: % perl Makefile.PL If you are lacking any of the prerequisite modules, running that program will tell you. All prerequisites are available from CPAN. When you have them all: % make && make test If there are any failures, it's best if you contact me. It may help other people who have the same problem. I don't tend to read the Perl newsgroups or PerlMonks, so it's no use posting there. When you report your trouble, be sure to send me the following information; + result of `perl -V' + output from 'make test' - ideally do 'make test TEST_VERBOSE=1 >& errs' Send those to bug-WWW-Shorten@rt.cpan.org and I'll get back to you as soon as I'm able. If it worked, then become root and type: # make install Congratulations. You've just installed WWW::Shorten. WWW-Shorten-3.08/TODO000444001750001750 15012634016011 13364 0ustar00davedave000000000000qurl: site doesn't work ekdk: site doesn't work shortlink: site no longer a shortener snipurl: too slow WWW-Shorten-3.08/CREDITS000444001750001750 147312634016011 13745 0ustar00davedave000000000000CREDITS FOR WWW::Shorten 1.88 Dave Cross for WWW::MakeAShorterLink Alex Page for the original LWP hacking on which Dave based his code. Simon Batistoni for giving the makealongerlink idea to Dave. Eric Hammond for writing the NotLong variant. Shashank Tripathi for providing both SnipURL.com and advice on the module. Kevin Gilbertson (Gilby) supplied information on the TinyURL API. Matt Felsen (mattf) wanted shorter function names. Ask Bjoern Hansen for providing both Metamark.net and advice on the module. Martin Thurn for helping me notice a bug and for a suggestion regarding MASL.pm. Jon and William (jon and wjr at smlnk.com respectively) for providing SmLnk.com. P J Goodwin for providing the code for WWW::Shorten::OneShortLink. And especial thanks to all providers of these services. WWW-Shorten-3.08/META.json000444001750001750 447212634016011 14350 0ustar00davedave000000000000{ "abstract" : "Interface to URL shortening sites.", "author" : [ "Original Iain Truskett ", "Based on WWW::MakeAShorterLink by Dave Cross " ], "dynamic_config" : 1, "generated_by" : "Module::Build version 0.4214", "keywords" : [ "short URL", "shortening" ], "license" : [ "artistic_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "WWW-Shorten", "prereqs" : { "build" : { "requires" : { "Test::More" : "0.47" } }, "configure" : { "requires" : { "Module::Build" : "0.42" } }, "runtime" : { "requires" : { "Config::Auto" : "0", "LWP" : "5.75", "LWP::UserAgent" : "2.023", "URI" : "1.27", "perl" : "5.006" } } }, "provides" : { "WWW::Shorten" : { "file" : "lib/WWW/Shorten.pm", "version" : "3.08" }, "WWW::Shorten::LinkToolbot" : { "file" : "lib/WWW/Shorten/LinkToolbot.pm", "version" : "1.90" }, "WWW::Shorten::Linkz" : { "file" : "lib/WWW/Shorten/Linkz.pm", "version" : "1.90" }, "WWW::Shorten::MakeAShorterLink" : { "file" : "lib/WWW/Shorten/MakeAShorterLink.pm", "version" : "1.90" }, "WWW::Shorten::Metamark" : { "file" : "lib/WWW/Shorten/Metamark.pm", "version" : "1.91" }, "WWW::Shorten::TinyClick" : { "file" : "lib/WWW/Shorten/TinyClick.pm", "version" : "1.90" }, "WWW::Shorten::TinyURL" : { "file" : "lib/WWW/Shorten/TinyURL.pm", "version" : "1.90" }, "WWW::Shorten::UserAgent" : { "file" : "lib/WWW/Shorten/UserAgent.pm" }, "WWW::Shorten::generic" : { "file" : "lib/WWW/Shorten/generic.pm", "version" : "1.92" } }, "release_status" : "stable", "resources" : { "license" : [ "http://www.perlfoundation.org/artistic_license_2_0" ], "repository" : { "url" : "https://github.com/davorg/www-shorten" } }, "version" : "3.08", "x_serialization_backend" : "JSON::PP version 2.27300" } WWW-Shorten-3.08/Changes000444001750001750 5253712634016011 14247 0ustar00davedave000000000000------------------------------------------------------------------- Tue Dec 15 14:54:14 CET 2015 - davidc@broadbean.com - Bump version for release - commit a9b2ae0 ------------------------------------------------------------------- Tue Dec 15 14:49:08 CET 2015 - dave@dave.org.uk - Better diagnostics - commit 85aa0ff ------------------------------------------------------------------- Tue Dec 15 14:47:09 CET 2015 - dave@dave.org.uk - Added .gitignore - commit 35e5185 ------------------------------------------------------------------- Tue Dec 15 14:22:36 CET 2015 - dave@dave.org.uk - Fix some formatting that has been broken for a very long time. - commit 62dd0c0 ------------------------------------------------------------------- Fri Jul 17 18:21:04 CEST 2015 - dave@dave.org.uk - Force another build. - commit 84ca8db ------------------------------------------------------------------- Fri Jul 17 18:15:17 CEST 2015 - dave@dave.org.uk - Experimentally add coveralls.op and Devel::Cover support - commit eaa7f77 ------------------------------------------------------------------- Thu Jun 11 09:32:04 CEST 2015 - alexchorny@gmail.com - better diagnostics in case of failure in tinyurl.t - commit a8659a0 ------------------------------------------------------------------- Sun May 24 23:45:41 CEST 2015 - alexchorny@gmail.com - better META.yml - commit 1c764ba ------------------------------------------------------------------- Sat Jan 3 16:07:07 CET 2015 - michiel.beijen@gmail.com - Corrected INSTALL instructions. The INSTALL section links to http://www.cpan.org/modules/by-authors/id/S/SP/SPOON/ as the place to download 'the latest release of WWW::Shorten' but this is no longer true. Of course the whole INSTALL file is a little bit huge! - commit 6061354 ------------------------------------------------------------------- Mon Sep 15 22:30:35 CEST 2014 - dave@dave.org.uk - Metamark is dead :-( - commit 96dabb0 ------------------------------------------------------------------- Tue May 6 21:24:27 CEST 2014 - dave@dave.org.uk - Typo in documentation. - commit c811d01 ------------------------------------------------------------------- Tue May 6 20:32:14 CEST 2014 - dave@dave.org.uk - Bump version for CPAN release. - commit 877589d ------------------------------------------------------------------- Tue May 6 19:50:00 CEST 2014 - dave@dave.org.uk - Updated the INSTALL instructions. - commit 4d9cb08 ------------------------------------------------------------------- Tue May 6 19:49:37 CEST 2014 - dave@dave.org.uk - (Possible) fix to the TinyURL test. - commit 8f93f85 ------------------------------------------------------------------- Tue May 6 16:50:50 CEST 2014 - dave@dave.org.uk - Modernised README - commit 4857429 ------------------------------------------------------------------- Tue May 6 16:45:36 CEST 2014 - dave@dave.org.uk - Added .travis.yml - commit 4785545 ------------------------------------------------------------------- Thu Aug 22 13:00:16 CEST 2013 - dave@dave.org.uk - Changes to reflect moved files. - commit c872c03 ------------------------------------------------------------------- Thu Aug 22 12:11:59 CEST 2013 - dave@dave.org.uk - Moved Pod tests into xt. (Pod coverage currently fails on some files. See https://rt.cpan.org/Ticket/Display.html?id=87634 for details.) - commit abd0ea0 ------------------------------------------------------------------- Mon Nov 12 17:40:29 CET 2012 - dave@dave.org.uk - Bump version number for release. - commit 82ee1a7 ------------------------------------------------------------------- Mon Nov 12 17:37:37 CET 2012 - dave@dave.org.uk - Removed prototypes (and the ampersands in the tests that circumvented them) - commit ca1fc85 ------------------------------------------------------------------- Fri Apr 6 18:40:42 CEST 2012 - dave@dave.org.uk - Licensing clean-up. - commit 647fa04 ------------------------------------------------------------------- Fri Apr 6 18:14:33 CEST 2012 - dave@dave.org.uk - Added META.json to MANIFEST. - commit 9042fc8 ------------------------------------------------------------------- Thu Mar 1 22:49:10 CET 2012 - dave@dave.org.uk - Added documentation. - commit ad026ea ------------------------------------------------------------------- Thu Mar 1 12:13:24 CET 2012 - dave@dave.org.uk - Added a WWW::Shorten::UserAgent object which dies if it receives an HTTP error response. - commit 9b6fe46 ------------------------------------------------------------------- Mon Dec 6 16:31:26 CET 2010 - dave@dave.org.uk - Better examples of using bin/shorten - commit 158b173 ------------------------------------------------------------------- Mon Dec 6 15:30:20 CET 2010 - dave@dave.org.uk - Bump version number for release. - commit cf8df8a ------------------------------------------------------------------- Mon Dec 6 15:29:17 CET 2010 - dave@dave.org.uk - Be far more intelligent about the code that allows the user to choose which service to use. - commit 3fc2494 ------------------------------------------------------------------- Mon Dec 6 15:28:46 CET 2010 - dave@dave.org.uk - Added MYMETA.yml to MANIFEST.SKIP. - commit 6a87adb ------------------------------------------------------------------- Mon Dec 6 13:35:43 CET 2010 - dave@dave.org.uk - Default to using a service that we currently support. - commit 5488a67 ------------------------------------------------------------------- Mon Dec 6 10:27:21 CET 2010 - dave@dave.org.uk - Added Config::Auto to list of dependencies (it's used by the shorten program). Bumped version for release. - commit e5c57b1 ------------------------------------------------------------------- Wed Jan 20 17:21:06 CET 2010 - dave@dacross.(none) - Removed version number so it's picked up from lib/WWW/Shorten.pm - commit a85b3a2 ------------------------------------------------------------------- Sat Dec 19 16:44:58 CET 2009 - dave@dave.org.uk - Bumped version number. Removed shorl files from MANIFEST. - commit 6582eae ------------------------------------------------------------------- Sat Dec 19 16:43:08 CET 2009 - dave@dave.org.uk - Removed support for shorl.pm (now in WWW::Shorten::Shorl distribution). - commit 39a69b6 ------------------------------------------------------------------- Tue Dec 15 04:46:14 CET 2009 - yappo@shibuya.pl - shorl.com was change the request method ( POST to GET ) - commit 47d32ce ------------------------------------------------------------------- Sat Nov 21 22:36:14 CET 2009 - dave@angel.mag-sol.com - Removed support for NotLong and OneShortLink (separate distributions to follow soon). Bumper to version 2.06. - commit c467223 ------------------------------------------------------------------- Fri Sep 18 14:46:00 CEST 2009 - dave@dave.org.uk - Bump to version 2.05 for release. - commit c3ee866 ------------------------------------------------------------------- Fri Sep 18 14:35:58 CEST 2009 - dave@dave.org.uk - Finish removing all references to SnipURL.pm. - commit 702a1bb ------------------------------------------------------------------- Tue Sep 8 12:54:17 CEST 2009 - dave@dave.org.uk - Removed snipurl.t from MANIFEST. - commit 9e922c5 ------------------------------------------------------------------- Tue Sep 8 11:34:25 CEST 2009 - dave@dave.org.uk - Removed WWW::Shorten::SnipURL (API changed, separate dist will follow). Bumped version to 2.04. - commit 1d97a1d ------------------------------------------------------------------- Sat Apr 11 17:39:54 CEST 2009 - dave@dave.org.uk - Start using $DEFAULT_SERVICE variable. - commit f696b4c ------------------------------------------------------------------- Sat Apr 11 17:39:06 CEST 2009 - dave@dave.org.uk - Removed files from MANIFEST - commit 2fb6642 ------------------------------------------------------------------- Sat Apr 11 13:51:19 CEST 2009 - dave@dave.org.uk - Documenation improvements. - commit 3a1f4ce ------------------------------------------------------------------- Sat Apr 11 13:34:43 CEST 2009 - dave@dave.org.uk - Removed a number of modules that supported services that are no longer around. - commit d2ef959 ------------------------------------------------------------------- Thu Mar 19 11:38:45 CET 2009 - dave@dave.org.uk - Remove signing - commit 419bb82 ------------------------------------------------------------------- Thu Mar 19 11:35:32 CET 2009 - dave@dave.org.uk - Fixed typo - commit e79a297 ------------------------------------------------------------------- Thu Mar 19 11:32:23 CET 2009 - dave@dave.org.uk - Bump version number. - commit 4ff0cab ------------------------------------------------------------------- Thu Mar 19 11:31:00 CET 2009 - dave@dave.org.uk - Fixed TinyURL tests. - commit c8a9137 ------------------------------------------------------------------- Mon Feb 2 16:28:53 CET 2009 - dave@dave.org.uk - Increment version number - commit cec12e1 ------------------------------------------------------------------- Mon Jan 26 14:27:29 CET 2009 - dave@dave.org.uk - Changed require perl 5.6.0 to require perl 5.006 - to deal with older Perl installations. - commit e7fd958 ------------------------------------------------------------------- Mon Jun 30 18:03:18 CEST 2008 - dave@dave.org.uk - Increment version - commit eb437d7 ------------------------------------------------------------------- Mon Jun 30 18:01:36 CEST 2008 - dave@dave.org.uk - Removed SIGNATURE from MANIFEST (as Module::Build adds it automatically). - commit 7c99293 ------------------------------------------------------------------- Mon Jun 30 13:30:27 CEST 2008 - dave@dave.org.uk - Typo - commit cd33b84 ------------------------------------------------------------------- Sun Jun 29 11:58:31 CEST 2008 - dave@dave.org.uk - Marked tinylink.com as dead (it's not - but it's returning nonsense). Bumped to version 2.00. - commit c633cad ------------------------------------------------------------------- Sun Apr 20 11:55:05 CEST 2008 - dave@dave.org.uk - Increment version number - commit a36a37b ------------------------------------------------------------------- Sun Apr 20 11:54:36 CEST 2008 - dave@dave.org.uk - Fixed test so it doesn't include a hard-coded code. - commit 5385847 ------------------------------------------------------------------- Sat Apr 19 10:28:47 CEST 2008 - dave@dave.org.uk - Fixes script_files. - commit d4c1384 ------------------------------------------------------------------- Thu Apr 17 07:43:37 CEST 2008 - dave@dave.org.uk - Increment version number for release - commit 78bc9a8 ------------------------------------------------------------------- Thu Apr 17 07:43:09 CEST 2008 - dave@dave.org.uk - Remove shortenrc. Add script_files to Build.PL - commit 04c6f04 ------------------------------------------------------------------- Mon Apr 14 23:50:07 CEST 2008 - dave@dave.org.uk - Various packaging fixes - commit df7a06e ------------------------------------------------------------------- Mon Apr 14 23:47:15 CEST 2008 - dave@dave.org.uk - Various test fixes - commit 4331e7b ------------------------------------------------------------------- Mon Apr 14 23:40:43 CEST 2008 - dave@dave.org.uk - link.toolbot.com is now dead. - commit 6867f37 ------------------------------------------------------------------- Mon Apr 14 23:29:27 CEST 2008 - dave@dave.org.uk - Switch to using the snipurl api. - commit 27499ae ------------------------------------------------------------------- Mon Apr 14 23:15:16 CEST 2008 - dave@dave.org.uk - Fixes to reflect changes in the way snipurl.com works. - commit 2fd95cb ------------------------------------------------------------------- Sun May 13 16:28:43 CEST 2007 - dave@dave.org.uk - Removed unneeded shebang lines - commit e0a7ff0 ------------------------------------------------------------------- Sun May 13 16:26:51 CEST 2007 - dave@dave.org.uk - Removed unused test file - commit fa763d5 ------------------------------------------------------------------- Sun Apr 15 21:29:40 CEST 2007 - dave@dave.org.uk - Reformatted documentation - commit c7b0662 ------------------------------------------------------------------- Sun Apr 15 21:05:34 CEST 2007 - dave@dave.org.uk - Switch to manual version number - commit 0246c28 ------------------------------------------------------------------- Sun Apr 15 18:25:51 CEST 2007 - dave@dave.org.uk - Fixed to mirror the way that shorl.com now works. - commit e8558da ------------------------------------------------------------------- Sun Apr 15 18:15:06 CEST 2007 - dave@dave.org.uk - Switched to manual version number. - commit 2ed93a6 ------------------------------------------------------------------- Sun Apr 15 18:12:17 CEST 2007 - dave@dave.org.uk - Updates to reflect changes in the way that notlong.pm works - commit 317f9bb ------------------------------------------------------------------- Sun Apr 15 18:11:49 CEST 2007 - dave@dave.org.uk - test a service that actually works - commit d7a0249 ------------------------------------------------------------------- Sun Apr 15 17:38:01 CEST 2007 - dave@dave.org.uk - Switch to manual version number - commit ce459bb ------------------------------------------------------------------- Sun Apr 15 17:25:09 CEST 2007 - dave@dave.org.uk - Switch to manual version number - commit 1f518a3 ------------------------------------------------------------------- Sun Apr 15 17:22:39 CEST 2007 - dave@dave.org.uk - Change tests to use a still existing service - commit 26f32d8 ------------------------------------------------------------------- Sun Apr 15 17:19:34 CEST 2007 - dave@dave.org.uk - tinyclick.com is dead - commit 076eae8 ------------------------------------------------------------------- Sun Apr 15 17:12:11 CEST 2007 - dave@dave.org.uk - Switched to manual version - commit 812274d ------------------------------------------------------------------- Sun Apr 15 17:09:33 CEST 2007 - dave@dave.org.uk - TinyURL now works in a slightly different way - commit 20da444 ------------------------------------------------------------------- Sun Apr 15 17:06:19 CEST 2007 - dave@dave.org.uk - removed unnecessary test - commit 0494479 ------------------------------------------------------------------- Sun Apr 15 17:03:55 CEST 2007 - dave@dave.org.uk - makeashorterlink.com is now dead! - commit a0e0e38 ------------------------------------------------------------------- Sun Apr 15 17:03:13 CEST 2007 - dave@dave.org.uk - Typo - commit 294776a ------------------------------------------------------------------- Sun Apr 15 16:48:02 CEST 2007 - dave@dave.org.uk - BabyURL is now dead - commit 4d49735 ------------------------------------------------------------------- Sun Apr 15 16:47:30 CEST 2007 - dave@dave.org.uk - Switch to manual version numbers - commit bd87df1 ------------------------------------------------------------------- Sun Apr 15 16:20:35 CEST 2007 - dave@dave.org.uk - Change to using manual version number. - commit f38ee68 ------------------------------------------------------------------- Sun Apr 15 16:19:02 CEST 2007 - dave@dave.org.uk - Changed email address in docs - commit 568c63a ------------------------------------------------------------------- Sun Apr 15 16:18:09 CEST 2007 - dave@dave.org.uk - Fixed copyright line. Removed changelog from module file. - commit 1a4b887 ------------------------------------------------------------------- Sun Apr 15 16:17:33 CEST 2007 - dave@dave.org.uk - Switched from Makefile.PL to Build.PL. - commit 0e19e65 ------------------------------------------------------------------- Fri Feb 16 23:31:15 CET 2007 - dave@dave.org.uk - Added tests for LinkToolbot.pm and fixed module to pass them - commit adce423 ------------------------------------------------------------------- Fri Feb 16 23:02:47 CET 2007 - dave@dave.org.uk - Added WWW::Shorten::LinkToolbot - commit 6f0451c ------------------------------------------------------------------- Sun Oct 9 23:54:47 CEST 2005 - dave@dave.org.uk - Reinstated support for 1sl.net. - commit 320bb4c ------------------------------------------------------------------- Sun Oct 9 23:52:00 CEST 2005 - dave@dave.org.uk - Reinstated suport for 1sl.net. - commit a91eae4 ------------------------------------------------------------------- Sat Sep 3 17:40:54 CEST 2005 - dave@dave.org.uk - Fixed previous fix :( - commit 58bc80f ------------------------------------------------------------------- Sat Sep 3 17:35:50 CEST 2005 - dave@dave.org.uk - Ignore hidden files - commit e98a7f2 ------------------------------------------------------------------- Sat Sep 3 17:32:33 CEST 2005 - dave@dave.org.uk - Removed outdated or incorrect references in the Pod. - commit e09c711 ------------------------------------------------------------------- Sat Sep 3 17:32:10 CEST 2005 - dave@dave.org.uk - Ignore vi backup files - commit ec67abd ------------------------------------------------------------------- Sat Sep 3 17:31:49 CEST 2005 - dave@dave.org.uk - Added Pod coverage tests - commit bbf1e69 ------------------------------------------------------------------- Sat Sep 3 17:24:41 CEST 2005 - dave@dave.org.uk - Changed the URL used for the test. - commit c21778c ------------------------------------------------------------------- Sat Sep 3 17:24:15 CEST 2005 - dave@dave.org.uk - Added a bit of Pod. - commit 4626b5c ------------------------------------------------------------------- Sat Sep 3 17:23:57 CEST 2005 - dave@dave.org.uk - Switched to using the REST API for makealongerlink. - commit f495fcc ------------------------------------------------------------------- Sat Sep 3 16:46:06 CEST 2005 - dave@dave.org.uk - Added 'use strict', 'use warnings' and cvs $Id$ tag to all modules - commit e1ce370 ------------------------------------------------------------------- Tue May 24 22:27:56 CEST 2005 - dave@dave.org.uk - Added 00noexp.t - commit de2c4aa ------------------------------------------------------------------- Tue May 24 22:20:20 CEST 2005 - dave@dave.org.uk - Correct copyright signs in pod. Skip lin.kz tests while it's broken. - commit 963a84e ------------------------------------------------------------------- Fri May 20 00:02:57 CEST 2005 - dave@dave.org.uk - Added stuff to MANIFEST.SKIP - commit 6cabc13 ------------------------------------------------------------------- Thu May 19 23:37:48 CEST 2005 - dave@dave.org.uk - Removed a couple of dead services - 1sl and v3 - commit 263a33e ------------------------------------------------------------------- Thu May 19 23:35:46 CEST 2005 - dave@dave.org.uk - Removed some dead services. Fixed WWW::Shorten::Shorl.pm to deal with the new way that shorl works. - commit dd1dc02 ------------------------------------------------------------------- Sat Oct 30 22:52:33 CEST 2004 - dave@dave.org.uk - Added new test files - commit 7c05b3a ------------------------------------------------------------------- Sat Oct 30 14:52:01 CEST 2004 - dave@dave.org.uk - Work on improving test coverage - commit 5a954af ------------------------------------------------------------------- Mon Oct 25 23:03:53 CEST 2004 - dave@dave.org.uk - Removed unnecessary "no strict 'refs'" - commit 2c31ea9 ------------------------------------------------------------------- Mon Oct 25 22:57:09 CEST 2004 - dave@dave.org.uk - SIGNATURE is generated - therefore not in CVS - commit 925534c ------------------------------------------------------------------- Mon Oct 25 22:55:21 CEST 2004 - dave@dave.org.uk - Various test fixes - commit 87b9ea4 ------------------------------------------------------------------- Mon Oct 25 22:51:56 CEST 2004 - dave@dave.org.uk - Fixed response regex - commit 4b66301 ------------------------------------------------------------------- Mon Oct 25 00:08:38 CEST 2004 - dave@dave.org.uk - New version with fixed SIGNATURE - commit 9a663c2 ------------------------------------------------------------------- Sun Oct 24 19:35:19 CEST 2004 - dave@dave.org.uk - Correct CVS versions - commit e367e21 ------------------------------------------------------------------- Sun Oct 24 19:29:40 CEST 2004 - dave@dave.org.uk - Correct CVS Version - commit 8623a73 ------------------------------------------------------------------- Sun Oct 24 19:29:04 CEST 2004 - dave@dave.org.uk - Correct CVS version - commit 7f9d99d ------------------------------------------------------------------- Sun Oct 24 18:31:16 CEST 2004 - dave@dave.org.uk - Changed author in Makefile.PL. Get $VERSION from CVS tag. - commit 8c1cead ------------------------------------------------------------------- Sun Oct 24 18:27:45 CEST 2004 - dave@dave.org.uk - Add some CVS tags - commit bc3a79f ------------------------------------------------------------------- Sun Oct 24 18:19:19 CEST 2004 - dave@dave.org.uk - Removed Changes from CVS - commit 169a507 ------------------------------------------------------------------- Sun Oct 24 18:18:09 CEST 2004 - dave@dave.org.uk - Replaced ChangeLog with ChangeLog.SPOON - commit be0a0cc ------------------------------------------------------------------- Sun Oct 24 18:15:07 CEST 2004 - dave@dave.org.uk - Changed author info - commit 19e15fa ------------------------------------------------------------------- Sun Oct 24 18:14:31 CEST 2004 - dave@dave.org.uk - Changed author info. - commit cde6e0b ------------------------------------------------------------------- Sun Oct 24 18:09:47 CEST 2004 - dave@dave.org.uk - Initial revision - commit cd0eb4c ------------------------------------------------------------------- Sun Oct 24 18:09:47 CEST 2004 - (no author) - New repository initialized by cvs2svn. - commit a48eebf WWW-Shorten-3.08/ChangeLog.SPOON000444001750001750 10565512634016011 15443 0ustar00davedave000000000000This file contains a list of all of the changes by Iain Truskett (SPOON) ____________________________________________________________________________ [ 301] By: iain on 2003/11/13 10:02:23 Log: - 1.88 ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 300] By: iain on 2003/11/13 10:02:08 Log: - Tidied up return values and authorship. ! main/lib/WWW/Shorten/OneShortLink.pm ____________________________________________________________________________ [ 299] By: iain on 2003/11/13 09:47:04 Log: - EkDk service removed. - ShortLink service removed. - qURL service removed. ! main/lib/WWW/Shorten/EkDk.pm main/lib/WWW/Shorten/ShortLink.pm ! main/lib/WWW/Shorten/qURL.pm main/t/ekdk.t main/t/qurl.t ! main/t/shortlink.t ____________________________________________________________________________ [ 298] By: iain on 2003/11/12 23:01:01 Log: - Upped TinyClick.pm's version. ! main/lib/WWW/Shorten/TinyClick.pm ____________________________________________________________________________ [ 297] By: iain on 2003/11/12 23:00:13 Log: - TinyClick made their URLs slightly harder to find. ! main/lib/WWW/Shorten/TinyClick.pm ____________________________________________________________________________ [ 296] By: iain on 2003/11/12 22:59:05 Log: - Metamark tests tidied. ! main/t/metamark.t ____________________________________________________________________________ [ 295] By: iain on 2003/11/12 22:58:37 Log: - Notlong tests tidied. ! main/t/notlong.t ____________________________________________________________________________ [ 294] By: iain on 2003/11/12 22:58:00 Log: - Added OneShortLink, http://1sl.net/ + main/lib/WWW/Shorten/OneShortLink.pm main/t/oneshort.t ____________________________________________________________________________ [ 293] By: iain on 2003/11/12 22:56:52 Log: - Shorl test precedence fixed. ! main/t/shorl.t ____________________________________________________________________________ [ 292] By: iain on 2003/11/12 22:55:48 Log: - SmLnk ID scheme has changed. ! main/t/smlnk.t ____________________________________________________________________________ [ 291] By: iain on 2003/09/10 11:51:30 Log: - Mention CGI::Shorten ! main/Changes ____________________________________________________________________________ [ 290] By: iain on 2003/09/10 11:50:20 Log: - Mention CGI::Shorten ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 289] By: iain on 2003/09/08 11:03:28 Log: - Skip the right modules in the subclass list. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 288] By: iain on 2003/09/08 00:43:04 Log: - Added links to search.cpan.org and backpan. - Add 1.88 ! main/Changes ____________________________________________________________________________ [ 287] By: iain on 2003/09/08 00:42:31 Log: - Use Class::Factory::Util to provide randomised selection. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 286] By: iain on 2003/09/08 00:05:34 Log: - Better abstract. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 285] By: iain on 2003/09/08 00:01:07 Log: - Added lin.kz + main/lib/WWW/Shorten/Linkz.pm main/t/linkz.t ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 284] By: iain on 2003/09/02 16:40:57 Log: - 1.86 ! main/Changes ____________________________________________________________________________ [ 283] By: iain on 2003/09/02 16:29:05 Log: - Added URLjr.com + main/lib/WWW/Shorten/URLjr.pm main/t/urljr.t ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 282] By: iain on 2003/09/02 16:28:16 Log: - Fixed wrong URL in docs. - Removed trailing slash in deparse URL. ! main/lib/WWW/Shorten/BabyURL.pm ____________________________________________________________________________ [ 281] By: iain on 2003/09/02 16:19:07 Log: - Added BabyURL.com + main/lib/WWW/Shorten/BabyURL.pm main/t/babyurl.t ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 280] By: iain on 2003/09/02 15:53:48 Log: - Fixed Eric's email. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 279] By: iain on 2003/08/31 01:31:54 Log: - Licence = noun. License = verb. ! main/lib/WWW/Shorten.pm main/lib/WWW/Shorten/EkDk.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Metamark.pm ! main/lib/WWW/Shorten/NotLong.pm main/lib/WWW/Shorten/Shorl.pm ! main/lib/WWW/Shorten/ShortLink.pm ! main/lib/WWW/Shorten/SmLnk.pm main/lib/WWW/Shorten/SnipURL.pm ! main/lib/WWW/Shorten/TinyClick.pm ! main/lib/WWW/Shorten/TinyURL.pm ! main/lib/WWW/Shorten/Tinylink.pm main/lib/WWW/Shorten/V3.pm ! main/lib/WWW/Shorten/generic.pm main/lib/WWW/Shorten/qURL.pm ____________________________________________________________________________ [ 278] By: iain on 2003/08/31 01:28:42 Log: - Licence = noun. License = verb. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 277] By: iain on 2003/08/30 01:07:04 Log: - 1.85 ! main/Changes ____________________________________________________________________________ [ 276] By: iain on 2003/08/30 01:06:53 Log: - Assorted documentation nit fixing. ! main/lib/WWW/Shorten.pm main/lib/WWW/Shorten/EkDk.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Metamark.pm ! main/lib/WWW/Shorten/NotLong.pm main/lib/WWW/Shorten/Shorl.pm ! main/lib/WWW/Shorten/ShortLink.pm ! main/lib/WWW/Shorten/SmLnk.pm main/lib/WWW/Shorten/SnipURL.pm ! main/lib/WWW/Shorten/TinyClick.pm ! main/lib/WWW/Shorten/TinyURL.pm ! main/lib/WWW/Shorten/Tinylink.pm main/lib/WWW/Shorten/V3.pm ! main/lib/WWW/Shorten/generic.pm main/lib/WWW/Shorten/qURL.pm ____________________________________________________________________________ [ 275] By: iain on 2003/08/29 17:59:40 Log: - Added v3.net + main/lib/WWW/Shorten/V3.pm main/t/v3.t ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 274] By: iain on 2003/08/29 17:15:00 Log: - Fixed qURL documentation. ! main/lib/WWW/Shorten/qURL.pm ____________________________________________________________________________ [ 273] By: iain on 2003/08/29 17:14:41 Log: - Added TinyLink.com support. + main/lib/WWW/Shorten/Tinylink.pm main/t/tinylink.t ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 272] By: iain on 2003/08/29 17:14:19 Log: - SmLnk.pm now uses the SmLnk API. ! main/lib/WWW/Shorten/SmLnk.pm main/t/smlnk.t ____________________________________________________________________________ [ 271] By: iain on 2003/08/27 12:33:09 Log: - Changed URL for shorlfilter. ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 270] By: iain on 2003/08/26 23:25:53 Log: - Added qurl.net - Mentioned shorlfilter. + main/lib/WWW/Shorten/qURL.pm main/t/qurl.t ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 265] By: iain on 2003/07/23 12:13:49 Log: - Added ShortLink.us + main/lib/WWW/Shorten/ShortLink.pm main/t/shortlink.t ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 264] By: iain on 2003/07/23 11:36:59 Log: - Unified version numbers ! main/Changes main/lib/WWW/Shorten.pm ! main/lib/WWW/Shorten/EkDk.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Metamark.pm ! main/lib/WWW/Shorten/NotLong.pm main/lib/WWW/Shorten/Shorl.pm ! main/lib/WWW/Shorten/SmLnk.pm main/lib/WWW/Shorten/SnipURL.pm ! main/lib/WWW/Shorten/TinyClick.pm ! main/lib/WWW/Shorten/TinyURL.pm ! main/lib/WWW/Shorten/generic.pm ____________________________________________________________________________ [ 263] By: iain on 2003/07/23 11:31:02 Log: - Redundant. - main/t/00checkyaml.t ____________________________________________________________________________ [ 262] By: iain on 2003/07/23 11:30:34 Log: - Autogen - main/t/00signature.t ____________________________________________________________________________ [ 261] By: iain on 2003/07/23 11:19:36 Log: - Autogen. - main/AUTHORS main/MANIFEST main/MANIFEST.SKIP main/Makefile.PL - main/t/00pod.t ____________________________________________________________________________ [ 260] By: iain on 2003/07/23 11:19:24 Log: - Now in RT.cpan.org - main/TODO ____________________________________________________________________________ [ 258] By: iain on 2003/07/23 11:12:01 Log: - Minor test nits fixed. ! main/Changes main/t/notlong.t main/t/snipurl.t ____________________________________________________________________________ [ 257] By: iain on 2003/07/23 11:10:44 Log: - QuickOnes.org doesn't exist any more. - main/lib/WWW/Shorten/QuickOnes.pm main/t/quickones.t ! main/Changes main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 256] By: iain on 2003/07/17 10:18:31 Log: - Removing Fcol.org support. - main/lib/WWW/Shorten/Fcol.pm main/t/fcol.t ! main/Changes main/MANIFEST main/lib/WWW/Shorten.pm ! main/t/00pod.t ____________________________________________________________________________ [ 246] By: iain on 2003/03/11 19:16:03 Log: - 1.5.8 ! main/Build.PL main/Changes ____________________________________________________________________________ [ 245] By: iain on 2003/03/11 19:06:15 Log: - MANIFEST update. ! main/MANIFEST ____________________________________________________________________________ [ 244] By: iain on 2003/03/11 19:04:34 Log: - Sample configuration file for shorten script added. + main/bin/shortenrc ____________________________________________________________________________ [ 243] By: iain on 2003/03/11 19:03:06 Log: - shorten script souped up. Can now be configured. ! main/bin/shorten ____________________________________________________________________________ [ 242] By: iain on 2003/03/11 18:40:29 Log: - Updated all BUG sections. ! main/lib/WWW/Shorten.pm main/lib/WWW/Shorten/EkDk.pm ! main/lib/WWW/Shorten/Fcol.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Metamark.pm ! main/lib/WWW/Shorten/NotLong.pm ! main/lib/WWW/Shorten/QuickOnes.pm ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/SmLnk.pm ! main/lib/WWW/Shorten/SnipURL.pm ! main/lib/WWW/Shorten/TinyClick.pm ! main/lib/WWW/Shorten/TinyURL.pm ! main/lib/WWW/Shorten/generic.pm ____________________________________________________________________________ [ 236] By: iain on 2003/03/10 00:48:52 Log: - 1.5.7 ! main/Build.PL main/Changes ____________________________________________________________________________ [ 235] By: iain on 2003/03/10 00:45:35 Log: - Improved MASL tests. ! main/t/masl.t ____________________________________________________________________________ [ 232] By: iain on 2003/03/07 13:35:14 Log: - Added link to NotLong's comparison page to WWW::Shorten. - Revised BUGS section of WWW::Shorten. Others will be done. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 231] By: iain on 2003/03/07 13:25:40 Log: - MakeAShorterLink.pm has minor POD fixups. - MASL now returns the original URL if it was too short. ! main/lib/WWW/Shorten/MakeAShorterLink.pm ____________________________________________________________________________ [ 230] By: iain on 2003/03/07 13:24:43 Log: - |> Modules return undef with any error. Previously they'd returned an empty string for some errors. ! main/lib/WWW/Shorten/EkDk.pm main/lib/WWW/Shorten/Fcol.pm ! main/lib/WWW/Shorten/NotLong.pm ! main/lib/WWW/Shorten/QuickOnes.pm ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/SmLnk.pm ! main/lib/WWW/Shorten/TinyClick.pm ! main/lib/WWW/Shorten/TinyURL.pm ____________________________________________________________________________ [ 229] By: iain on 2003/03/05 12:24:10 Log: - 1.5.6 ! main/Build.PL main/Changes ____________________________________________________________________________ [ 228] By: iain on 2003/03/05 12:23:45 Log: - Added SERVICES section to pod, listing services' URLs. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 227] By: iain on 2003/03/05 12:19:40 Log: - Not interested in urllog ! main/TODO ____________________________________________________________________________ [ 226] By: iain on 2003/03/05 11:59:24 Log: - Added Test::Pod + main/t/00pod.t ! main/MANIFEST ____________________________________________________________________________ [ 225] By: iain on 2003/03/05 11:18:50 Log: - Remove redundant tests. - main/t/ws_newnames.t main/t/ws_notlong.t main/t/ws_quickones.t - main/t/ws_shorl.t main/t/ws_smlnk.t main/t/ws_snipurl.t - main/t/ws_tinyurl.t ! main/MANIFEST ____________________________________________________________________________ [ 224] By: iain on 2003/03/05 11:17:14 Log: - Added TinyClick.com + main/lib/WWW/Shorten/TinyClick.pm main/t/tinyclick.t ! main/MANIFEST main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 216] By: iain on 2003/02/22 14:17:53 Log: - 1.5.6 changes ! main/Changes ____________________________________________________________________________ [ 214] By: iain on 2003/01/08 01:53:12 Log: - bin/shorten wasn't in the manifest, thus not in the dist. ! main/MANIFEST ____________________________________________________________________________ [ 213] By: iain on 2003/01/08 01:39:30 Log: - 1.5.5 ! main/Build.PL main/Changes ____________________________________________________________________________ [ 212] By: iain on 2003/01/08 01:39:10 Log: - Corrected Metamark doco. - Metamark uses POST rather than GET now. - Ask mentioned in various bits. ! main/AUTHORS main/lib/WWW/Shorten.pm ! main/lib/WWW/Shorten/Metamark.pm ____________________________________________________________________________ [ 211] By: iain on 2003/01/07 14:47:14 Log: - 1.5.4 ! main/Build.PL main/Changes ____________________________________________________________________________ [ 210] By: iain on 2003/01/07 14:46:34 Log: - Added Metamark and 'shorten' to the docs. ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 209] By: iain on 2003/01/07 14:39:36 Log: - Added 'shorten'. A useful little program. + main/bin/shorten ____________________________________________________________________________ [ 208] By: iain on 2003/01/07 14:37:02 Log: - Makefile.PL updated with new recommended stub. ! main/Makefile.PL ____________________________________________________________________________ [ 207] By: iain on 2003/01/07 14:27:10 Log: - SnipURL.com modified their API. Code updated. ! main/lib/WWW/Shorten/SnipURL.pm main/t/snipurl.t ! main/t/ws_snipurl.t ____________________________________________________________________________ [ 206] By: iain on 2003/01/07 13:58:03 Log: - Smlnk test added to depot. + main/t/ws_smlnk.t ____________________________________________________________________________ [ 205] By: iain on 2003/01/07 13:57:39 Log: - Module::Build uses META.yml now rather than .yaml ! main/MANIFEST main/t/00checkyaml.t ____________________________________________________________________________ [ 204] By: iain on 2003/01/07 13:57:03 Log: - Added Ask's Metamark service. + main/lib/WWW/Shorten/Metamark.pm main/t/metamark.t ! main/MANIFEST ____________________________________________________________________________ [ 148] By: iain on 2002/12/02 10:31:39 Log: 1.5.3 changes. ! main/Build.PL main/Changes ____________________________________________________________________________ [ 147] By: iain on 2002/12/02 10:31:25 Log: - Changes updated. ! main/TODO ____________________________________________________________________________ [ 48] By: iain on 2002/11/05 12:18:06 Log: - AUTHORS list added. Have to automate it at some point. - ChangeLog added (genlog of the p4 logs). + main/AUTHORS ! main/MANIFEST ____________________________________________________________________________ [ 47] By: iain on 2002/11/04 13:26:07 Log: - Just reformatting. ! main/TODO ____________________________________________________________________________ [ 46] By: iain on 2002/11/04 13:06:47 Log: - Tests no longer use a dave.org URL. - Uses one of mine instead ( perl.dellah.org ). ! main/t/fcol.t main/t/masl.t main/t/notlong.t ! main/t/quickones.t main/t/shorl.t main/t/snipurl.t ! main/t/tinyurl.t main/t/ws_masl.t main/t/ws_notlong.t ! main/t/ws_quickones.t main/t/ws_shorl.t main/t/ws_snipurl.t ! main/t/ws_tinyurl.t ____________________________________________________________________________ [ 43] By: iain on 2002/11/01 13:24:59 Log: - Continuing 1.5.2. - Added SmLnk.com - Updated Shorten.pm to mention the EdDk, Fcol and SmLnk. + main/lib/WWW/Shorten/SmLnk.pm main/t/smlnk.t ! main/Changes main/MANIFEST main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 42] By: iain on 2002/11/01 13:23:19 Log: - Fixed to accomodate site change. - lynx.php doesn't appear to be doing as it used to. ! main/lib/WWW/Shorten/SnipURL.pm main/t/snipurl.t ! main/t/ws_snipurl.t ____________________________________________________________________________ [ 40] By: iain on 2002/10/30 16:33:54 Log: - 1.5.2 changes. ! main/Changes ____________________________________________________________________________ [ 39] By: iain on 2002/10/30 16:33:28 Log: - More name changing tests. - Inheritance tends to make symbol table futzing harder. + main/t/00load_a.t main/t/00load_b.t ! main/MANIFEST main/lib/WWW/Shorten/generic.pm main/t/00load.t ____________________________________________________________________________ [ 37] By: iain on 2002/10/30 16:21:06 Log: - Function name changing is possible. - newnames.t and ws_newnames.t test this. - import() for WWW::Shorten simplified by shunting stuff to the base class. + main/t/ws_newnames.t ! main/MANIFEST main/lib/WWW/Shorten.pm ! main/lib/WWW/Shorten/generic.pm main/t/newnames.t ____________________________________________________________________________ [ 36] By: iain on 2002/10/30 15:27:21 Log: - Versions updated for 1.5.2 - Have to think of something to with change logs now. - MANIFEST updated appropriately. - New tests added. + main/t/newnames.t ! main/Build.PL main/Changes main/MANIFEST ____________________________________________________________________________ [ 35] By: iain on 2002/10/30 15:23:36 Log: Versions moved to x.yy, and aren't taken from CVS ids. ! main/lib/WWW/Shorten/EkDk.pm main/lib/WWW/Shorten/Fcol.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/NotLong.pm ! main/lib/WWW/Shorten/QuickOnes.pm ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/SnipURL.pm ! main/lib/WWW/Shorten/TinyURL.pm ! main/lib/WWW/Shorten/generic.pm ____________________________________________________________________________ [ 34] By: iain on 2002/10/29 12:22:18 Log: + $DEBUG mode. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/SnipURL.pm ____________________________________________________________________________ [ 33] By: iain on 2002/10/29 12:22:09 Log: + 1.5.1 [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Build.PL main/Changes ____________________________________________________________________________ [ 32] By: iain on 2002/10/25 12:06:18 Log: + The new edition. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/t/00checkyaml.t ____________________________________________________________________________ [ 31] By: iain on 2002/10/25 12:06:06 Log: + ABSTRACT added. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 30] By: iain on 2002/10/25 12:05:59 Log: + README is now auto-generated. + MANIFEST updated. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/MANIFEST ____________________________________________________________________________ [ 29] By: iain on 2002/10/25 12:05:59 Log: + README is now auto-generated. + MANIFEST updated. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] - main/README ____________________________________________________________________________ [ 28] By: iain on 2002/10/25 11:54:32 Log: + redir.ek.dk tests. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/t/ekdk.t ____________________________________________________________________________ [ 27] By: iain on 2002/10/25 11:51:55 Log: - Module::Build rather than ExtUtils::MakeMaker. - SIGNATURE added. - Default style is 'MakeAShorterLink'. - THANKS section added. - LICENSE AND COPYRIGHT section added. - SnipURL.pm uses the API interface. - Auxiliary files cleaned up. - Basic tests added. - Fcol.org and add.redir.ek.dk added. - Tests for Fcol and EkDk added. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/.cvsignore main/Build.PL main/MANIFEST.SKIP + main/lib/WWW/Shorten/EkDk.pm main/t/00checkyaml.t + main/t/00load.t main/t/00signature.t main/t/fcol.t ! main/Changes main/MANIFEST main/Makefile.PL main/TODO ! main/lib/WWW/Shorten.pm main/lib/WWW/Shorten/Fcol.pm ____________________________________________________________________________ [ 26] By: iain on 2002/10/25 11:06:25 Log: + SnipURL.pm now uses the API interface. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/SnipURL.pm ____________________________________________________________________________ [ 25] By: iain on 2002/10/25 11:05:52 Log: + fcol.org support. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/lib/WWW/Shorten/Fcol.pm ____________________________________________________________________________ [ 24] By: iain on 2002/09/21 14:14:02 Log: + 1.4.2 [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Changes main/Makefile.PL ____________________________________________________________________________ [ 23] By: iain on 2002/09/21 14:11:46 Log: + Changed module description. + credited shank. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/SnipURL.pm ____________________________________________________________________________ [ 22] By: iain on 2002/09/21 13:37:31 Log: + Fixed scope of $code. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/t/notlong.t main/t/ws_notlong.t ____________________________________________________________________________ [ 21] By: iain on 2002/09/21 13:30:23 Log: + Correct scopes for variables. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/t/notlong.t main/t/shorl.t ____________________________________________________________________________ [ 20] By: iain on 2002/09/21 13:30:13 Log: + Remove mention of ($url,$password) syntax, since this module doesn't have that. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/SnipURL.pm ____________________________________________________________________________ [ 19] By: iain on 2002/09/21 13:29:45 Log: + Mention the newer modules rather than just the original three. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 18] By: iain on 2002/09/21 13:29:33 Log: + Version updated. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Makefile.PL ____________________________________________________________________________ [ 17] By: iain on 2002/09/20 11:32:18 Log: + Typo. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/t/01version.t ____________________________________________________________________________ [ 16] By: iain on 2002/09/20 11:32:01 Log: + BUGS section added to NotLong + THANKS section added to TinyURL [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/NotLong.pm ! main/lib/WWW/Shorten/TinyURL.pm ____________________________________________________________________________ [ 15] By: iain on 2002/09/20 11:28:53 Log: + Tests for new modules added. + List versions (good for test reports) [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/t/01version.t main/t/notlong.t main/t/quickones.t + main/t/snipurl.t main/t/ws_notlong.t main/t/ws_quickones.t + main/t/ws_snipurl.t ____________________________________________________________________________ [ 14] By: iain on 2002/09/20 11:28:37 Log: + Refactoring to use W::S::generic. + NotLong, QuickOnes, SnipURL added. + TinyURL uses the generic interface. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/lib/WWW/Shorten/NotLong.pm + main/lib/WWW/Shorten/QuickOnes.pm + main/lib/WWW/Shorten/SnipURL.pm + main/lib/WWW/Shorten/generic.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/TinyURL.pm ____________________________________________________________________________ [ 13] By: iain on 2002/09/20 11:27:52 Log: + Refactoring to use W::S::generic. + Allow parameters to generic masl() [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 12] By: iain on 2002/09/20 11:27:06 Log: + QuickOnes, SnipURL and NotLong added. + 1.4 + TODO Added. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/TODO ! main/MANIFEST main/Makefile.PL main/README ____________________________________________________________________________ [ 11] By: iain on 2002/09/16 13:54:47 Log: + 1.3.2 emendments. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Changes ____________________________________________________________________________ [ 10] By: iain on 2002/09/16 13:52:37 Log: + Bump it up. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Makefile.PL ____________________________________________________________________________ [ 9] By: iain on 2002/09/16 13:41:17 Log: + Mention where to report bugs. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/README main/lib/WWW/Shorten.pm ! main/lib/WWW/Shorten/MakeAShorterLink.pm ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/TinyURL.pm ____________________________________________________________________________ [ 8] By: iain on 2002/09/04 20:33:05 Log: + Version update. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/README ____________________________________________________________________________ [ 7] By: iain on 2002/09/04 20:32:29 Log: + Documentation nits. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/TinyURL.pm ____________________________________________________________________________ [ 6] By: iain on 2002/09/04 20:32:19 Log: + Updated. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Changes ____________________________________________________________________________ [ 5] By: iain on 2002/09/04 20:26:14 Log: + Document behaviour. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/Shorl.pm ____________________________________________________________________________ [ 4] By: iain on 2002/09/04 20:26:01 Log: + Hardwire package version. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/Makefile.PL ____________________________________________________________________________ [ 3] By: iain on 2002/09/04 20:20:46 Log: + Returns password in list context. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten/Shorl.pm main/t/shorl.t ____________________________________________________________________________ [ 2] By: iain on 2002/08/29 18:24:43 Log: + Corrected apostrophe. [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] ! main/lib/WWW/Shorten.pm ____________________________________________________________________________ [ 1] By: iain on 2002/08/29 17:55:54 Log: + 1.1 [imported from CVS by cvs2p4 at 2002/10/30 01:14:15] + main/Changes main/MANIFEST main/Makefile.PL main/README + main/lib/WWW/Shorten.pm + main/lib/WWW/Shorten/MakeAShorterLink.pm + main/lib/WWW/Shorten/Shorl.pm main/lib/WWW/Shorten/TinyURL.pm + main/t/masl.t main/t/shorl.t main/t/tinyurl.t main/t/ws_masl.t + main/t/ws_shorl.t main/t/ws_tinyurl.t WWW-Shorten-3.08/META.yml000444001750001750 304312634016011 14171 0ustar00davedave000000000000--- abstract: 'Interface to URL shortening sites.' author: - 'Original Iain Truskett ' - 'Based on WWW::MakeAShorterLink by Dave Cross ' build_requires: Test::More: '0.47' configure_requires: Module::Build: '0.42' dynamic_config: 1 generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version 2.150005' keywords: - 'short URL' - shortening license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: WWW-Shorten provides: WWW::Shorten: file: lib/WWW/Shorten.pm version: '3.08' WWW::Shorten::LinkToolbot: file: lib/WWW/Shorten/LinkToolbot.pm version: '1.90' WWW::Shorten::Linkz: file: lib/WWW/Shorten/Linkz.pm version: '1.90' WWW::Shorten::MakeAShorterLink: file: lib/WWW/Shorten/MakeAShorterLink.pm version: '1.90' WWW::Shorten::Metamark: file: lib/WWW/Shorten/Metamark.pm version: '1.91' WWW::Shorten::TinyClick: file: lib/WWW/Shorten/TinyClick.pm version: '1.90' WWW::Shorten::TinyURL: file: lib/WWW/Shorten/TinyURL.pm version: '1.90' WWW::Shorten::UserAgent: file: lib/WWW/Shorten/UserAgent.pm WWW::Shorten::generic: file: lib/WWW/Shorten/generic.pm version: '1.92' requires: Config::Auto: '0' LWP: '5.75' LWP::UserAgent: '2.023' URI: '1.27' perl: '5.006' resources: license: http://www.perlfoundation.org/artistic_license_2_0 repository: https://github.com/davorg/www-shorten version: '3.08' x_serialization_backend: 'CPAN::Meta::YAML version 0.016' WWW-Shorten-3.08/README000444001750001750 33512634016011 13561 0ustar00davedave000000000000WWW::Shorten Interface to URL shortening sites. For installation details, see INSTALL. For usage, see the documentation. Either use perldoc or view it on the web at: WWW-Shorten-3.08/MANIFEST.SKIP000444001750001750 36512634016011 14602 0ustar00davedave000000000000\.sw.$ \bRCS\b \bCVS\b ^_build/ ^Build$ ^blib/ ^Makefile$ ^WWW-Shorten- ^MANIFEST.bak$ ^pm_to_blib$ ^Makefile.[a-z]+$ \.cvsignore$ \B\.svn\b ^diff ^patch \.patch$ ^log$ ^data\.yaml$ ^blibdirs$ ^cover_db/ ^WWW-Shorten/ \.tmp$ ~$ ^\. ^MYMETA.yml$ WWW-Shorten-3.08/Build.PL000444001750001750 162712634016011 14222 0ustar00davedave000000000000use Module::Build; my $build = Module::Build->new( module_name => 'WWW::Shorten', license => 'artistic_2', requires => { 'perl' => '5.006', 'LWP' => '5.75', 'LWP::UserAgent' => '2.023', 'URI' => '1.27', 'Config::Auto' => 0, }, build_requires => { 'Test::More' => '0.47', }, build_recommends => { 'Test::Pod' => 0, 'Test::Pod::Coverage' => 0, 'Test::Signature' => 0, }, 'meta_merge' => { 'keywords' => [ 'short URL', 'shortening', ], 'resources' => { 'repository' => 'https://github.com/davorg/www-shorten' } }, create_makefile_pl => 'traditional', script_files => [ 'bin/shorten' ], ); $build->create_build_script; WWW-Shorten-3.08/Makefile.PL000444001750001750 106612634016011 14675 0ustar00davedave000000000000# Note: this file was auto-generated by Module::Build::Compat version 0.4214 require 5.006; use ExtUtils::MakeMaker; WriteMakefile ( 'NAME' => 'WWW::Shorten', 'VERSION_FROM' => 'lib/WWW/Shorten.pm', 'PREREQ_PM' => { 'Config::Auto' => 0, 'LWP' => '5.75', 'LWP::UserAgent' => '2.023', 'Test::More' => '0.47', 'URI' => '1.27' }, 'INSTALLDIRS' => 'site', 'EXE_FILES' => [ 'bin/shorten' ], 'PL_FILES' => {} ) ; WWW-Shorten-3.08/MANIFEST000444001750001750 122412634016011 14050 0ustar00davedave000000000000Artistic AUTHORS bin/shorten ChangeLog.SPOON Changes CREDITS INSTALL lib/WWW/Shorten.pm lib/WWW/Shorten/_dead.pm lib/WWW/Shorten/generic.pm lib/WWW/Shorten/Linkz.pm lib/WWW/Shorten/LinkToolbot.pm lib/WWW/Shorten/MakeAShorterLink.pm lib/WWW/Shorten/Metamark.pm lib/WWW/Shorten/TinyClick.pm lib/WWW/Shorten/Tinylink.pm lib/WWW/Shorten/TinyURL.pm lib/WWW/Shorten/UserAgent.pm LICENCE Makefile.PL Build.PL MANIFEST MANIFEST.SKIP META.yml README t/00load.t t/00load_a.t t/00load_b.t t/00noexp.t t/00sig.t t/01version.t xt/98pod-coverage.t xt/99pod.t t/linkz.t t/linktoolbot.t t/masl.t t/metamark.t t/newnames.t t/tinyclick.t t/tinylink.t t/tinyurl.t TODO META.json WWW-Shorten-3.08/xt000755001750001750 012634016011 13216 5ustar00davedave000000000000WWW-Shorten-3.08/xt/98pod-coverage.t000444001750001750 24112634016011 16251 0ustar00davedave000000000000use Test::More; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; all_pod_coverage_ok(); WWW-Shorten-3.08/xt/99pod.t000444001750001750 21612634016011 14463 0ustar00davedave000000000000use strict; use Test::More; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok(); WWW-Shorten-3.08/bin000755001750001750 012634016011 13333 5ustar00davedave000000000000WWW-Shorten-3.08/bin/shorten000555001750001750 630612634016011 15105 0ustar00davedave000000000000#!/usr/bin/perl -w use strict; use Getopt::Long; my %args; GetOptions(\%args, 'service=s'); # Determine our service, default is Metamark for no real reason my $config; # eval in case we don't have Config::Auto installed eval 'use Config::Auto 0.04'; unless ($@) { # eval in case we don't have a config file $config = eval 'Config::Auto::parse()'; } my $service = $args{service} || $ENV{SHORTEN_SERVICE} || $config->{service} || 'TinyURL'; $service = "WWW::Shorten::$service"; # Import it eval "require $service"; if ($@) { die "Invalid service in your configuration.\n"; } $service->import('makeashorterlink'); # Get argument die "No URL specified!\n" unless @ARGV; my $url = $ARGV[0]; $url = "http://$url" unless $url =~ m[^\w+://]; # Convert my $out = eval 'makeashorterlink( $url )'; $out = "Error" if $@ or not defined $out; # Output print "$out\n"; __END__ =head1 NAME shorten - CLI program to demonstrate use of WWW::Shorten =head1 SYNOPSIS # Default shortening service is Metamark $ shorten books.perl.org/book/171 http://xrl.us/dv8 # Change with an environment variable $ SHORTEN_SERVICE=TinyURL shorten books.perl.org/book/171 http://tinyurl.com/ye7gjf4 # Change with command line option $ shorten --service=TinyURL books.perl.org/book/171 http://tinyurl.com/ye7gjf4 # Change using config file $ cat ~/.shortenrc service = TinyURL $ shorten books.perl.org/book/171 http://tinyurl.com/ye7gjf4 =head1 CONFIGURATION The service used can be controlled in various ways. The program will use the first of the following values that it finds: =over 4 =item * The value of the C<--service> command line option. =item * The value of the C environment variable. =item * The value of the C option from the configuration file (see below). =item * If none of the above options is found, the program defaults to using Metamark. =back =head1 CONFIGURATION FILE As we use the C module for configuration, shorten's fairly flexible when it comes to format. Configuration will be found in whichever of the following files comes first. shortenconfig ~/shortenconfig /etc/shortenconfig shorten.config ~/shorten.config /etc/shorten.config shortenrc ~/shortenrc /etc/shortenrc .shortenrc ~/.shortenrc /etc/.shortenrc Generally, I use the format: service = MakeAShorterLink which is simple and works. C is the only configuration keyword at present. Its value should be a correctly capitalized service name as per L's documentation. =head1 BUGS, REQUESTS, COMMENTS Please report any requests, suggestions or bugs via the system at L, or email Ebug-WWW-Shorten@rt.cpan.orgE. This makes it much easier for me to track things and thus means your problem is less likely to be neglected. =head1 LICENSE AND COPYRIGHT Copyright E Magnum Solutions Ltd, 2002 - 2010. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 AUTHOR Dave Cross , taking over from Iain Truskett =head1 SEE ALSO L =cut WWW-Shorten-3.08/t000755001750001750 012634016011 13026 5ustar00davedave000000000000WWW-Shorten-3.08/t/newnames.t000444001750001750 60512634016011 15146 0ustar00davedave000000000000use Test::More tests => 6; use WWW::Shorten qw( TinyURL :short ); ok( exists $::{'short_link'}, 'shorter exists'); ok( exists $::{'long_link'}, 'longer exists'); use WWW::Shorten qw( TinyURL :default ); ok( exists $::{'makeashorterlink'}, 'shorter exists'); ok( exists $::{'makealongerlink'}, 'longer exists'); eval { makeashorterlink() }; ok($@); eval { makealongerlink() }; ok($@); WWW-Shorten-3.08/t/tinylink.t000444001750001750 21412634016011 15166 0ustar00davedave000000000000use Test::More tests => 1; eval { require WWW::Shorten::Tinylink }; like( $@, qr/inactive/, "Service correctly reports it is inactive." ); WWW-Shorten-3.08/t/linktoolbot.t000444001750001750 21712634016011 15670 0ustar00davedave000000000000use Test::More tests => 1; eval { require WWW::Shorten::LinkToolbot }; like( $@, qr/inactive/, "Service correctly reports it is inactive." ); WWW-Shorten-3.08/t/metamark.t000444001750001750 21412634016011 15126 0ustar00davedave000000000000use Test::More tests => 1; eval { require WWW::Shorten::Metamark }; like( $@, qr/inactive/, "Service correctly reports it is inactive." ); WWW-Shorten-3.08/t/00load.t000444001750001750 33012634016011 14403 0ustar00davedave000000000000use Test::More tests => 3; # Basic test of 'does the module load, damnit!' BEGIN { use_ok 'WWW::Shorten' } ok( exists $::{'makeashorterlink'}, 'shorter exists'); ok( exists $::{'makealongerlink'}, 'longer exists'); WWW-Shorten-3.08/t/tinyclick.t000444001750001750 21512634016011 15317 0ustar00davedave000000000000use Test::More tests => 1; eval { require WWW::Shorten::TinyClick }; like( $@, qr/inactive/, "Service correctly reports it is inactive." ); WWW-Shorten-3.08/t/masl.t000444001750001750 22412634016011 14262 0ustar00davedave000000000000use Test::More tests => 1; eval { require WWW::Shorten::MakeAShorterLink }; like( $@, qr/inactive/, "Service correctly reports it is inactive." ); WWW-Shorten-3.08/t/tinyurl.t000444001750001750 151312634016011 15056 0ustar00davedave000000000000use Test::More tests => 7; BEGIN { use_ok WWW::Shorten::TinyURL }; my $url = 'https://metacpan.org/release/WWW-Shorten'; my $return = makeashorterlink($url); ok($return, 'not a error') or diag "\$_error_message = $_error_message"; my ($code) = $return =~ /(\w+)$/; my $prefix = 'http://tinyurl.com/'; is ( makeashorterlink($url), $prefix.$code, 'make it shorter'); # Slight pause to increase the chance that all of TinyURL's servers # know about the new link sleep(5); is ( makealongerlink($prefix.$code), $url, 'make it longer') or diag "\$_error_message = $_error_message"; is ( makealongerlink($code), $url, 'make it longer by Id',) or diag "\$_error_message = $_error_message"; eval { makeashorterlink() }; ok($@, 'makeashorterlink fails with no args'); eval { makealongerlink() }; ok($@, 'makealongerlink fails with no args'); WWW-Shorten-3.08/t/00noexp.t000444001750001750 24412634016011 14621 0ustar00davedave000000000000use Test::More tests => 1; # Basic test of 'does the module load, damnit!' use WWW::Shorten::TinyURL; eval { WWW::Shorten::TinyURL->import(':invalid') }; ok($@); WWW-Shorten-3.08/t/00load_a.t000444001750001750 34112634016011 14705 0ustar00davedave000000000000use Test::More tests => 3; # Basic test of 'does the module load, damnit!' BEGIN { use_ok 'WWW::Shorten::TinyURL' } ok( exists $::{'makeashorterlink'}, 'shorter exists'); ok( exists $::{'makealongerlink'}, 'longer exists'); WWW-Shorten-3.08/t/01version.t000444001750001750 25512634016011 15160 0ustar00davedave000000000000use Test::More tests => 1; use LWP::UserAgent qw(); diag 'Test::More '.Test::More->VERSION(); diag 'LWP::UserAgent '.LWP::UserAgent->VERSION(); pass("Versions checked."); WWW-Shorten-3.08/t/00load_b.t000444001750001750 34312634016011 14710 0ustar00davedave000000000000use Test::More tests => 3; # Basic test of 'does the module load, damnit!' BEGIN { use_ok 'WWW::Shorten', 'TinyURL' } ok( exists $::{'makeashorterlink'}, 'shorter exists'); ok( exists $::{'makealongerlink'}, 'longer exists'); WWW-Shorten-3.08/t/linkz.t000444001750001750 112112634016011 14472 0ustar00davedave000000000000use Test::More tests => 6; BEGIN { use_ok WWW::Shorten::Linkz }; my $url = 'http://www.bbc.co.uk/cult/doctorwho/ebooks/lungbarrow/index.shtml'; my $re = qr{ ^ http:// lin\.kz / \? (\w+) $ }x; SKIP: { skip 'lin.kz seems to be having trouble at the moment', 5; my $shortened; like(($shortened = makeashorterlink($url)), $re, 'make it shorter'); is(makealongerlink($shortened), $url, 'make it longer'); my ($code) = $shortened =~ $re; is (makealongerlink($code), $url, 'make it longer by Id'); eval { makeashorterlink() }; ok($@); eval { makealongerlink() }; ok($@); } WWW-Shorten-3.08/t/00sig.t000444001750001750 22012634016011 14244 0ustar00davedave000000000000use Test::More tests => 1; eval "use Test::Signature 1.04"; SKIP: { skip "Test::Signature not installed.", 1 if $@; signature_ok(); } WWW-Shorten-3.08/lib000755001750001750 012634016011 13331 5ustar00davedave000000000000WWW-Shorten-3.08/lib/WWW000755001750001750 012634016011 14015 5ustar00davedave000000000000WWW-Shorten-3.08/lib/WWW/Shorten.pm000444001750001750 1362112634016011 16155 0ustar00davedave000000000000#$Id$ =head1 NAME WWW::Shorten - Interface to URL shortening sites. =head1 SYNOPSIS use WWW::Shorten 'Linkz'; use WWW::Shorten 'MakeAShorterLink'; use WWW::Shorten 'NotLong'; use WWW::Shorten 'OneShortLink'; use WWW::Shorten 'Shorl'; use WWW::Shorten 'TinyClick'; use WWW::Shorten 'TinyLink'; use WWW::Shorten 'TinyURL'; # Individual modules have have their # own syntactic variations. # See the documentation for the particular # module you intend to use for details, trips # and traps. $short_url = makeashorterlink($long_url); $long_url = makealongerlink($short_url); # If you don't like the function names: use WWW::Shorten 'TinyURL', ':short'; $short_url = short_link( $long_url ); $long_url = long_link( $short_url ); =head1 ABSTRACT A Perl interface to URL shortening sites. These sites maintain databases of long URLs, each of which has a unique identifier. =head1 DESCRIPTION The function C will call the relevant web site passing it your long URL and will return the shorter version. The function C does the reverse. C will accept as an argument either the full shortened URL or just the identifier. If anything goes wrong, then either function will return C. =cut package WWW::Shorten; use 5.006; use strict; use warnings; use base qw(WWW::Shorten::generic); our @EXPORT = qw(makeashorterlink makealongerlink); our $VERSION = '3.08'; our $DEFAULT_SERVICE = 'TinyURL'; use Carp; my $style; =head1 Subroutines =head2 import Called when the module is Cd. Loads the correct sub-module =cut sub import { my $class = shift; $style = shift; $style = $DEFAULT_SERVICE unless defined $style; my $package = "${class}::${style}"; eval { my $file = $package; $file =~ s/::/\//g; require "$file.pm"; }; croak $@ if $@; $package->import( @_ ); } 1; __END__ =head2 EXPORT makeashorterlink, makealongerlink Or, if you specify C<:short> on the import line, you instead get C and C. If you explicitly want the default set, use C<:default>. Actually these functions are exported from the relevant subclass. =head1 COMMAND LINE PROGRAM A very simple program called F is supplied in the distribution's F folder. This program takes a URL and gives you a shortened version of it. =head1 EXAMPLES and PROGRAMS Adam Kessel wrote F, a program that uses C to filter a file, converting long URLs to short ones. http://bostoncoop.net/adam/shorlfilter There is also a F directory in this distribution which contains a sample program. =head1 NO LONGER SUPPORTED The URL-shortening industry is pretty volatile. Many sites exist for a while and then go away. The most famous of those is probably Make A Shorter Link (the site that originally inspired this suite of modules). MASL has been acquired by TinyURL.com and no longer exists. Here is a list of sites that were once supported by this module and are no longer with us: =over 4 =item MakeAShorterLink =item BabyURL =item EkDk =item Metamark =item qURL (although the differently capitalised Qurl.com now uses their old domain) =item ShortLink =item SmLnk =item URLjr =item V3 =back See Joshua Schachter's blog entry at L for some very interesting discussion on some problems that can be caused by the volatility of this part of the web industry. =head1 RELATED MODULES =head2 Similar Aim L is what this module was originally based upon. That module is obsoleted by L, one of the many subclasses of L. Of course, with the demise of Make A Shorter Link, neither the obsolete module nor its replacement are of any use. =head2 Same Area, Different Purpose L provides building blocks for you to create your own URL shortening service. It provides routines to shorten a URL, lengthen one, and it keeps a store. Nice and easy. =head1 THANKS Dave Cross for L Alex Page for the original LWP hacking on which Dave based his code. Simon Batistoni for giving the C idea to Dave. Eric Hammond for writing the NotLong variant. Shashank Tripathi for providing both SnipURL.com and advice on the module. Kevin Gilbertson (Gilby) supplied information on the TinyURL API. Matt Felsen (mattf) wanted shorter function names. Ask Bjoern Hansen for providing both Metamark.net and advice on the module. Martin Thurn for helping me notice a bug and for a suggestion regarding F. Jon and William (jon and wjr at smlnk.com respectively) for providing SmLnk.com. P J Goodwin for providing the code for L. And especial thanks to all providers of these services. =head1 BUGS, REQUESTS, COMMENTS Support for this module is supplied using the CPAN RT system via the web or email: http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Shorten ( shorter URL: http://xrl.us/rfb ) bug-www-shorten@rt.cpan.org This makes it much easier for me to track things and thus means your problem is less likely to be neglected. =head1 LICENCE AND COPYRIGHT WWW::Shorten::NotLong copyright (c) Eric Hammond . Other modules copyright (c) Magnum Solutions Ltd., 2007. All rights reserved. This module is free software. You can redistribute it and/or modify it under the terms of the Artistic License 2.0. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Original Iain Truskett Based on WWW::MakeAShorterLink by Dave Cross In 2004 Dave Cross took over the maintenance of this distribution following the death of Iain Truskett. =head1 SEE ALSO L, L. =cut WWW-Shorten-3.08/lib/WWW/Shorten000755001750001750 012634016011 15437 5ustar00davedave000000000000WWW-Shorten-3.08/lib/WWW/Shorten/TinyURL.pm000444001750001750 567212634016011 17452 0ustar00davedave000000000000# $Id$ =head1 NAME WWW::Shorten::TinyURL - Perl interface to tinyurl.com =head1 SYNOPSIS use WWW::Shorten::TinyURL; use WWW::Shorten 'TinyURL'; $short_url = makeashorterlink($long_url); $long_url = makealongerlink($short_url); =head1 DESCRIPTION A Perl interface to the web site tinyurl.com. TinyURL simply maintains a database of long URLs, each of which has a unique identifier. =cut package WWW::Shorten::TinyURL; use 5.006; use strict; use warnings; use base qw( WWW::Shorten::generic Exporter ); our @EXPORT = qw( makeashorterlink makealongerlink ); our $VERSION = '1.90'; our $_error_message =''; use Carp; =head1 Functions =head2 makeashorterlink The function C will call the TinyURL web site passing it your long URL and will return the shorter TinyURL version. =cut sub makeashorterlink { my $url = shift or croak 'No URL passed to makeashorterlink'; $_error_message = ''; my $ua = __PACKAGE__->ua(); my $tinyurl = 'http://tinyurl.com/api-create.php'; my $resp = $ua->post($tinyurl, [ url => $url, source => "PerlAPI-$VERSION", ]); return undef unless $resp->is_success; my $content = $resp->content; if ($content =~ /Error/) { if ($content =~ / 100) { $_error_message = substr($content, 0, 100); } else { $_error_message = $content; } return undef ; } if ($resp->content =~ m!(\Qhttp://tinyurl.com/\E\w+)!x) { return $1; } return; } =head2 makealongerlink The function C does the reverse. C will accept as an argument either the full TinyURL URL or just the TinyURL identifier. If anything goes wrong, then either function will return C. =cut sub makealongerlink { my $tinyurl_url = shift or croak 'No TinyURL key / URL passed to makealongerlink'; $_error_message = ''; my $ua = __PACKAGE__->ua(); $tinyurl_url = "http://tinyurl.com/$tinyurl_url" unless $tinyurl_url =~ m!^http://!i; my $resp = $ua->get($tinyurl_url); unless ($resp->is_redirect) { my $content = $resp->content; if ($content =~ /Error/) { if ($content =~ / 100) { $_error_message = substr($content, 0, 100); } else { $_error_message = $content; } } else { $_error_message = 'Unknown error'; } return undef; } my $url = $resp->header('Location'); return $url; } 1; __END__ =head2 EXPORT makeashorterlink, makealongerlink =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett =head1 SEE ALSO L, L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/UserAgent.pm000444001750001750 263312634016011 20033 0ustar00davedave000000000000package WWW::Shorten::UserAgent; use strict; use warnings; use base 'LWP::UserAgent'; =head1 NAME WWW::Shorten::UserAgent - LWP::UserAgent subclass for WWW::Shorten modules. =head1 SYNOPSIS use WWW::Shorten::UserAgent; my $ua = WWW::Shorten::UserAgent->new; my $resp = eval { $ua->get($url); }; =head1 DESCRIPTION Subclass of LWP::UserAgent which works the same way as the supoerclass except that it throws an exception if the C or C method returns an error. See L for the full documentation. =head1 METHODS =head2 get Makes an HTTP GET request and throws an exception on error. =cut sub get { my $self = shift; my $resp = $self->SUPER::get(@_); die $resp->status_line if $resp->is_error; return $resp; } =head2 post Makes an HTTP POST request and throws an exception on error. =cut sub post { my $self = shift; my $resp = $self->SUPER::post(@_); die $resp->status_line if $resp->is_error; return $resp; } 1; =head1 LICENCE AND COPYRIGHT Copyright (c) Magnum Solutions Ltd., 2012. All rights reserved. This module is free software. You can redistribute it and/or modify it under the terms of the Artistic License 2.0. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. =head1 AUTHOR Dave Cross =cut WWW-Shorten-3.08/lib/WWW/Shorten/_dead.pm000444001750001750 66212634016011 17152 0ustar00davedave000000000000# $Id$ package WWW::Shorten::_dead; use strict; use warnings; our $VERSION = '1.92'; die <<'EOF'; This WWW::Shorten service is inactive. Please use a different one. EOF 1; =head1 NAME WWW::Shorten::_dead - Where dead link-shortening services got =head1 SYNOPSIS # No appropriate synopsis =head1 DESCRIPTION This is just a module that we use for link-shortening services that we used to support but which no longer exist. WWW-Shorten-3.08/lib/WWW/Shorten/generic.pm000444001750001750 276112634016011 17554 0ustar00davedave000000000000# $Id$ =head1 NAME WWW::Shorten::generic - Methods shared across all WWW::Shorten modules =head1 SYNOPSIS use WWW::Shorten 'SomeSubclass'; =head1 DESCRIPTION Contains methds that are shared across all WWW::Shorten implemenation modules. =cut package WWW::Shorten::generic; use 5.006; use strict; use warnings; our $VERSION = 1.92; use WWW::Shorten::UserAgent; use Carp; my %name_sets = ( default => [qw( makeashorterlink makealongerlink )], short => [qw( short_link long_link )], ); sub import { my $class = shift; my ($package) = caller; ($package) = caller(1) if $package eq 'WWW::Shorten'; my $set = shift; if (defined $set and $set =~ /^ : (\w+) $/x) { $set = $1; } else { $set = 'default'; } if ( exists $name_sets{$set} ) { no strict 'refs'; *{"${package}::$name_sets{$set}[0]"} = *{ "${class}::$name_sets{default}[0]"}; *{"${package}::$name_sets{$set}[1]"} = *{ "${class}::$name_sets{default}[1]"}; } else { croak "Unknown function set - $set."; } } my $ua; =head1 FUNCTIONS =head2 ua Returns the object's LWP::Useragent attribute. Creates a new one if one doesn't already exist. =cut sub ua { my $self = shift; return $ua if defined $ua; my $v = $self->VERSION(); $ua = WWW::Shorten::UserAgent->new( env_proxy => 1, timeout => 30, agent => "$self/$v", requests_redirectable => [], ); return $ua; } 1; WWW-Shorten-3.08/lib/WWW/Shorten/LinkToolbot.pm000444001750001750 143112634016011 20371 0ustar00davedave000000000000# $Id: MakeAShorterLink.pm 48 2007-04-15 15:03:55Z dave $ package WWW::Shorten::LinkToolbot; use strict; use warnings; our $VERSION = '1.90'; require WWW::Shorten::_dead; 0; __END__ =head1 NAME WWW::Shorten::LinkToolbot - Perl interface to link.toolbot.com =head1 SYNOPSIS # No appropriate synopsis. =head1 DESCRIPTION A Perl interface to the web site link.toolbot.com. Unfortunately, this service became inactive at some point between 1.89 and 1.90, so this module will merely give you an error if you try to use it. Feel free to pick a different L. =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett , Dave Cross =head1 SEE ALSO L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/TinyClick.pm000444001750001750 133412634016011 20024 0ustar00davedave000000000000# $Id$ package WWW::Shorten::TinyClick; use strict; use warnings; our $VERSION = '1.90'; require WWW::Shorten::_dead; 0; __END__ =head1 NAME WWW::Shorten::TinyClick - Perl interface to tinyclick.com =head1 SYNOPSIS # No appropriate synopsis. =head1 DESCRIPTION A Perl interface to the web site tinyclick.com. Unfortunately, this service became inactive at some point between 1.89 and 1.90, so this module will merely give you an error if you try to use it. Feel free to pick a different L. =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett , Dave Cross =head1 SEE ALSO L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/MakeAShorterLink.pm000444001750001750 135712634016011 21303 0ustar00davedave000000000000# $Id$ package WWW::Shorten::MakeAShorterLink; use strict; use warnings; our $VERSION = '1.90'; require WWW::Shorten::_dead; 0; __END__ =head1 NAME WWW::Shorten::MakeAShorterLink - Perl interface to makeashorterlink.com =head1 SYNOPSIS # No appropriate synopsis. =head1 DESCRIPTION A Perl interface to the web site babyurl.com. Unfortunately, this service became inactive at some point between 1.89 and 1.90, so this module will merely give you an error if you try to use it. Feel free to pick a different L. =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett , Dave Cross =head1 SEE ALSO L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/Tinylink.pm000444001750001750 500212634016011 17730 0ustar00davedave000000000000# $Id$ use strict; use warnings; our $VERSION = '1.91'; require WWW::Shorten::_dead; 0; __END__ =head1 NAME WWW::Shorten::Tinylink - Perl interface to Tinylink.com =head1 SYNOPSIS # No appropriate solution =head1 DESCRIPTION A Perl interface to the web site Tinylink.com. Tinylink.com simply maintains a database of long URLs, each of which has a unique identifier. Unfortunately, at some point in the middle of 2008, Tinylink.com stopped returning useable URLs and therefore this module is now deprecated. =cut package WWW::Shorten::Tinylink; use 5.006; use strict; use warnings; use base qw( WWW::Shorten::generic Exporter ); our @EXPORT = qw(makeashorterlink makealongerlink); our $VERSION = '1.90'; use Carp; =head1 Functions =head2 makeashorterlink The function C will call the Tinylink.com web site passing it your long URL and will return the shorter (tinylink) version. Multiple submissions of the same URL will result in different codes being returned. =cut sub makeashorterlink { my $url = shift or croak 'No URL passed to makeashorterlink'; my $ua = __PACKAGE__->ua(); my $resp = $ua->post( 'http://www.digipills.com/tinylink/ajout.php', [ lurl => $url, ], ); return unless $resp->is_success; if ($resp->content =~ m! \Q does the reverse. C will accept as an argument either the full Tinylink URL or just the Tinylink identifier/nickname. If anything goes wrong, then either function will return C. =cut sub makealongerlink { my $code = shift or croak 'No Tinylink nickname/URL passed to makealongerlink'; my $ua = __PACKAGE__->ua(); my $short; unless ( $code =~ m!^http://!i ) { $short = $code; $code = "http://tinylink.com/?$code"; } else { ($short) = $code =~ /\?(\w+)/; } my $resp = $ua->get($code); while ( my $location = $resp->header('Location') ) { $resp = $ua->get( $location ); } if ( my $refresh = $resp->header('Refresh') ) { return $2 if $refresh =~ m/; *URL=(['"]?)(.*)\1$/i; } return; } 1; __END__ =head2 EXPORT makeashorterlink, makealongerlink =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett =head1 SEE ALSO L, L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/Linkz.pm000444001750001750 425112634016011 17223 0ustar00davedave000000000000# $Id$ =head1 NAME WWW::Shorten::Linkz - Perl interface to lin.kz =head1 SYNOPSIS use WWW::Shorten 'Linkz'; $short_url = makeashorterlink($long_url); $long_url = makealongerlink($short_url); $long_url = makealongerlink($nickname); =head1 DESCRIPTION A Perl interface to the web site lin.kz. lin.kz simply maintains a database of long URLs, each of which has a unique identifier. =cut package WWW::Shorten::Linkz; use 5.006; use strict; use warnings; use base qw( WWW::Shorten::generic Exporter ); our @EXPORT = qw(makeashorterlink makealongerlink); our $VERSION = '1.90'; use Carp; #POST http://lin.kz/make.php # url= # =Shorten URL! (submit) # privkey= # =head1 Functions =head2 makeashorterlink The function C will call the lin.kz web site passing it your long URL and will return the shorter (Linkz) version. Multiple submissions of the same URL will result in different codes being returned. =cut sub makeashorterlink { my $url = shift or croak 'No URL passed to makeashorterlink'; my $ua = __PACKAGE__->ua(); my $resp = $ua->post( 'http://lin.kz/make.php', [ url => $url, ], ); return unless $resp->is_success; if ($resp->content =~ m! \Q does the reverse. C will accept as an argument either the full Linkz URL or just the Linkz identifier/nickname. If anything goes wrong, then either function will return C. =cut sub makealongerlink { my $code = shift or croak 'No Linkz nickname/URL passed to makealongerlink'; my $ua = __PACKAGE__->ua(); $code = "http://lin.kz/?$code" unless $code =~ m!^http://!i; my $resp = $ua->get($code); my $location = $resp->header('Location'); return $location if defined $location; return; } 1; __END__ =head2 EXPORT makeashorterlink, makealongerlink =head1 SUPPORT, LICENCE, THANKS and SUCH See the main L docs. =head1 AUTHOR Iain Truskett =head1 SEE ALSO L, L, L =cut WWW-Shorten-3.08/lib/WWW/Shorten/Metamark.pm000444001750001750 61012634016011 17650 0ustar00davedave000000000000# $Id$ =head1 NAME WWW::Shorten::Metamark - Perl interface to metamark.net =head1 SYNOPSIS # No appropriate synopsis =head1 DESCRIPTION A Perl interface to the web site metamark.net. From September 2014, Metamark is no longer accepting new URLs. =cut package WWW::Shorten::Metamark; use 5.006; use strict; use warnings; our $VERSION = '1.91'; require WWW::Shorten::_dead; 0;