r39930 - in /branches/upstream/libapp-nopaste-perl/current: Changes MANIFEST META.yml lib/App/Nopaste.pm lib/App/Nopaste/Service/Debian.pm

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Wed Jul 15 08:55:19 2009
New Revision: 39930

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39930
Log:
[svn-upgrade] Integrating new upstream version, libapp-nopaste-perl (0.14)

Added:
    branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Debian.pm
Modified:
    branches/upstream/libapp-nopaste-perl/current/Changes
    branches/upstream/libapp-nopaste-perl/current/MANIFEST
    branches/upstream/libapp-nopaste-perl/current/META.yml
    branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.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=39930&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Wed Jul 15 08:55:19 2009
@@ -1,4 +1,10 @@
 Revision history for App-Nopaste
+
+0.14    Wed Jul 15 04:48:15 2009
+        No code changes
+
+0.13    Wed Jul 15 04:47:21 2009
+        Add support for paste.debian.net (Ryan Niebur)
 
 0.12    Mon Jul 13 19:35:10 2009
         Don't explicitly (optionally) depend on Git, but use it if

Modified: branches/upstream/libapp-nopaste-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/MANIFEST?rev=39930&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/MANIFEST (original)
+++ branches/upstream/libapp-nopaste-perl/current/MANIFEST Wed Jul 15 08:55:19 2009
@@ -1,3 +1,4 @@
+App-Nopaste-0.13.tar.gz
 bin/nopaste
 Changes
 inc/Module/AutoInstall.pm
@@ -16,6 +17,7 @@
 lib/App/Nopaste.pm
 lib/App/Nopaste/Command.pm
 lib/App/Nopaste/Service.pm
+lib/App/Nopaste/Service/Debian.pm
 lib/App/Nopaste/Service/Gist.pm
 lib/App/Nopaste/Service/Husk.pm
 lib/App/Nopaste/Service/Mathbin.pm

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=39930&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Wed Jul 15 08:55:19 2009
@@ -26,4 +26,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.12
+version: 0.14

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=39930&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Wed Jul 15 08:55:19 2009
@@ -6,7 +6,7 @@
 use base 'Exporter';
 our @EXPORT_OK = 'nopaste';
 
-our $VERSION = '0.12';
+our $VERSION = '0.14';
 
 sub nopaste {
     # process arguments {{{

Added: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Debian.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Debian.pm?rev=39930&op=file
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Debian.pm (added)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Debian.pm Wed Jul 15 08:55:19 2009
@@ -1,0 +1,44 @@
+package App::Nopaste::Service::Debian;
+use strict;
+use warnings;
+use base 'App::Nopaste::Service';
+
+sub uri { "http://paste.debian.net/" }
+
+sub fill_form {
+    my $self = shift;
+    my $mech = shift;
+    my %args = @_;
+
+    $mech->form_number(1);
+    $mech->submit_form(
+        fields        => {
+            code => $args{text},
+            do { $args{nick} ? (poster => $args{nick}) : () },
+        },
+    );
+}
+
+sub return {
+    my $self = shift;
+    my $mech = shift;
+
+    my $link = $mech->uri();
+
+    return (1, $link);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+App::Nopaste::Service::Debian - http://paste.debian.net/
+
+=head1 AUTHOR
+
+Ryan Niebur, C<< <ryanryan52 at gmail.com> >>
+
+=cut
+