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]

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.