1App::Nopaste::Service(3U)ser Contributed Perl DocumentatiAopnp::Nopaste::Service(3)
2
3
4
6 App::Nopaste::Service - base class for nopaste services
7
9 version 1.013
10
12 package App::Nopaste::Service::Shadowcat;
13 use parent 'App::Nopaste::Service';
14
15 sub uri { "http://paste.scsys.co.uk/" }
16
18 "App::Nopaste::Service" defines a generic interface for uploading to
19 nopaste sites. It provides a default interface to that of the POE
20 Pastebot.
21
23 nopaste
24 This is the outermost method called by App::Nopaste and other clients.
25 You should not override this method, as it will (XXX: eventually)
26 perform canonicalization of arguments (such as "lang") for you.
27
28 run args -> (OK, message)
29 This is the outermost method you should override. You'll be passed a
30 hash of arguments. The only arguments you should pay attention to are:
31
32 text
33 The body of text to paste.
34
35 desc
36 A short (one-line) summary of the paste.
37
38 nick
39 The name of the person performing the paste.
40
41 chan
42 The IRC channel to which the paste belongs.
43
44 lang
45 The programming language of the body of text.
46
47 private
48 If false, the paste will be public (default).
49
50 get mech, args
51 This should "get" the form to paste using the provided WWW::Mechanize
52 object. By default it does just that. See "uri" below.
53
54 uri
55 If you only need to call "mech->get(uri)" then you may define this
56 method to provide the URI of the nopaste service.
57
58 fill_form mech, args
59 This should have the WWW::Mechanize fill in the form using the
60 arguments, and submit it.
61
62 return mech, args
63 This should look at "WWW::Mechanize->content" to find the URI to the
64 pasted text.
65
67 Bugs may be submitted through the RT bug tracker
68 <https://rt.cpan.org/Public/Dist/Display.html?Name=App-Nopaste> (or
69 bug-App-Nopaste@rt.cpan.org <mailto:bug-App-Nopaste@rt.cpan.org>).
70
72 Shawn M Moore, <sartak at gmail.com>
73
75 This software is copyright (c) 2008 by Shawn M Moore.
76
77 This is free software; you can redistribute it and/or modify it under
78 the same terms as the Perl 5 programming language system itself.
79
80
81
82perl v5.34.0 2021-07-22 App::Nopaste::Service(3)