r69598 - in /branches/upstream/libapp-nopaste-perl/current: Changes META.yml Makefile.PL lib/App/Nopaste.pm lib/App/Nopaste/Command.pm
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Fri Feb 25 06:33:42 UTC 2011
Author: carnil
Date: Fri Feb 25 06:31:30 2011
New Revision: 69598
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69598
Log:
[svn-upgrade] new version libapp-nopaste-perl (0.26)
Modified:
branches/upstream/libapp-nopaste-perl/current/Changes
branches/upstream/libapp-nopaste-perl/current/META.yml
branches/upstream/libapp-nopaste-perl/current/Makefile.PL
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm
Modified: branches/upstream/libapp-nopaste-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Changes?rev=69598&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Fri Feb 25 06:31:30 2011
@@ -1,4 +1,7 @@
Revision history for App-Nopaste
+
+0.26 Wed Feb 23 2011
+ Add --open (-o) for opening the nopaste in your browser (Thomas Sibley)
0.25 Mon Jan 3 2011
Add support for $GITHUB_USER/$GITHUB_TOKEN to Gist service (Maximilian Gass)
Modified: branches/upstream/libapp-nopaste-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/META.yml?rev=69598&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Fri Feb 25 06:31:30 2011
@@ -18,6 +18,7 @@
- inc
- t
requires:
+ Browser::Open: 0
Clipboard: 0
Config::GitLike: 0.00
File::Spec: 0
@@ -32,4 +33,4 @@
homepage: http://github.com/sartak/app-nopaste/tree
license: http://dev.perl.org/licenses/
repository: git://github.com/sartak/app-nopaste.git
-version: 0.25
+version: 0.26
Modified: branches/upstream/libapp-nopaste-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Makefile.PL?rev=69598&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Makefile.PL (original)
+++ branches/upstream/libapp-nopaste-perl/current/Makefile.PL Fri Feb 25 06:31:30 2011
@@ -26,6 +26,9 @@
'File::Temp',
'File::Spec'
],
+ 'open URLs in a browser' => [
+ 'Browser::Open',
+ ],
);
install_script 'bin/nopaste';
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm?rev=69598&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Fri Feb 25 06:31:30 2011
@@ -7,7 +7,7 @@
use base 'Exporter';
our @EXPORT_OK = 'nopaste';
-our $VERSION = '0.25';
+our $VERSION = '0.26';
sub nopaste {
# process arguments {{{
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm?rev=69598&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm Fri Feb 25 06:31:30 2011
@@ -67,6 +67,14 @@
isa => 'Bool',
cmd_aliases => ['p'],
documentation => "If specified, use only the clipboard as input.",
+);
+
+has open_url => (
+ traits => ['Getopt'],
+ is => 'rw',
+ isa => 'Bool',
+ cmd_aliases => ['open', 'o'],
+ documentation => "If specified, automatically open the URL using Browser::Open.",
);
has quiet => (
@@ -119,6 +127,11 @@
Clipboard->copy($url);
}
+ if ($self->open_url) {
+ require Browser::Open;
+ Browser::Open::open_browser($url);
+ }
+
return $url;
}
@@ -199,6 +212,11 @@
If specified, use only the clipboard as input, using the L<Clipboard> module.
+=head2 -o, --open
+
+If specified, automatically open the URL using L<Browser::Open>. Browser::Open
+tries a number of different browser commands depending on your OS.
+
=head2 -q, --quiet
If specified, do not warn or complain about broken services.
More information about the Pkg-perl-cvs-commits
mailing list