File Coverage

blib/lib/App/Nopaste/Service/Debian.pm

Criterion	Covered	Total	%
statement	10	24	41.6
branch	0	8	0.0
condition			n/a
subroutine	4	6	66.6
pod	3	3	100.0
total	17	41	41.4

use strict;
use warnings;
package App::Nopaste::Service::Debian;
# ABSTRACT: Service provider for Debian - https://paste.debian.net/

our $VERSION = '1.011';

use parent 'App::Nopaste::Service';

my $languages = {
    "text" => "-1",
    "abap" => "abap",
    "ada" => "ada",
    "ahk" => "ahk",
    "antlr" => "antlr",
    "antlr-as" => "antlr-as",
    "antlr-cpp" => "antlr-cpp",
    "antlr-csharp" => "antlr-csharp",
    "antlr-java" => "antlr-java",
    "antlr-objc" => "antlr-objc",
    "antlr-perl" => "antlr-perl",
    "antlr-python" => "antlr-python",
    "antlr-ruby" => "antlr-ruby",
    "apacheconf" => "apacheconf",
    "applescript" => "applescript",
    "as" => "as",
    "as3" => "as3",
    "aspx-cs" => "aspx-cs",
    "aspx-vb" => "aspx-vb",
    "asy" => "asy",
    "awk" => "awk",
    "basemake" => "basemake",
    "bash" => "bash",
    "bat" => "bat",
    "bbcode" => "bbcode",
    "befunge" => "befunge",
    "blitzmax" => "blitzmax",
    "boo" => "boo",
    "brainfuck" => "brainfuck",
    "bro" => "bro",
    "c" => "c",
    "cfengine3" => "cfengine3",
    "cfm" => "cfm",
    "cfs" => "cfs",
    "cheetah" => "cheetah",
    "clojure" => "clojure",
    "cmake" => "cmake",
    "c-objdump" => "c-objdump",
    "coffee-script" => "coffee-script",
    "common-lisp" => "common-lisp",
    "console" => "console",
    "control" => "control",
    "coq" => "coq",
    "cpp" => "cpp",
    "cpp-objdump" => "cpp-objdump",
    "csharp" => "csharp",
    "css" => "css",
    "css+django" => "css+django",
    "css+erb" => "css+erb",
    "css+genshitext" => "css+genshitext",
    "css+mako" => "css+mako",
    "css+myghty" => "css+myghty",
    "css+php" => "css+php",
    "css+smarty" => "css+smarty",
    "Cucumber" => "Cucumber",
    "cython" => "cython",
    "d" => "d",
    "dart" => "dart",
    "delphi" => "delphi",
    "diff" => "diff",
    "django" => "django",
    "d-objdump" => "d-objdump",
    "dpatch" => "dpatch",
    "dtd" => "dtd",
    "duel" => "duel",
    "dylan" => "dylan",
    "ec" => "ec",
    "ecl" => "ecl",
    "elixir" => "elixir",
    "erb" => "erb",
    "erl" => "erl",
    "erlang" => "erlang",
    "evoque" => "evoque",
    "factor" => "factor",
    "fan" => "fan",
    "fancy" => "fancy",
    "felix" => "felix",
    "fortran" => "fortran",
    "fsharp" => "fsharp",
    "gas" => "gas",
    "genshi" => "genshi",
    "genshitext" => "genshitext",
    "glsl" => "glsl",
    "gnuplot" => "gnuplot",
    "go" => "go",
    "gooddata-cl" => "gooddata-cl",
    "gosu" => "gosu",
    "groff" => "groff",
    "groovy" => "groovy",
    "gst" => "gst",
    "haml" => "haml",
    "haskell" => "haskell",
    "html" => "html",
    "html+cheetah" => "html+cheetah",
    "html+django" => "html+django",
    "html+evoque" => "html+evoque",
    "html+genshi" => "html+genshi",
    "html+mako" => "html+mako",
    "html+myghty" => "html+myghty",
    "html+php" => "html+php",
    "html+smarty" => "html+smarty",
    "html+velocity" => "html+velocity",
    "http" => "http",
    "hx" => "hx",
    "hybris" => "hybris",
    "iex" => "iex",
    "ini" => "ini",
    "io" => "io",
    "ioke" => "ioke",
    "irc" => "irc",
    "jade" => "jade",
    "java" => "java",
    "js" => "js",
    "js+cheetah" => "js+cheetah",
    "js+django" => "js+django",
    "js+erb" => "js+erb",
    "js+genshitext" => "js+genshitext",
    "js+mako" => "js+mako",
    "js+myghty" => "js+myghty",
    "json" => "json",
    "jsp" => "jsp",
    "js+php" => "js+php",
    "js+smarty" => "js+smarty",
    "kotlin" => "kotlin",
    "lhs" => "lhs",
    "lighty" => "lighty",
    "llvm" => "llvm",
    "logtalk" => "logtalk",
    "lua" => "lua",
    "make" => "make",
    "mako" => "mako",
    "maql" => "maql",
    "mason" => "mason",
    "matlab" => "matlab",
    "matlabsession" => "matlabsession",
    "minid" => "minid",
    "modelica" => "modelica",
    "modula2" => "modula2",
    "moocode" => "moocode",
    "moon" => "moon",
    "mupad" => "mupad",
    "mxml" => "mxml",
    "myghty" => "myghty",
    "mysql" => "mysql",
    "nasm" => "nasm",
    "nemerle" => "nemerle",
    "newlisp" => "newlisp",
    "newspeak" => "newspeak",
    "nginx" => "nginx",
    "nimrod" => "nimrod",
    "numpy" => "numpy",
    "objdump" => "objdump",
    "objective-c" => "objective-c",
    "objective-j" => "objective-j",
    "ocaml" => "ocaml",
    "octave" => "octave",
    "ooc" => "ooc",
    "opa" => "opa",
    "openedge" => "openedge",
    "perl" => "perl",
    "php" => "php",
    "plpgsql" => "plpgsql",
    "postgresql" => "postgresql",
    "postscript" => "postscript",
    "pot" => "pot",
    "pov" => "pov",
    "powershell" => "powershell",
    "prolog" => "prolog",
    "properties" => "properties",
    "protobuf" => "protobuf",
    "psql" => "psql",
    "py3tb" => "py3tb",
    "pycon" => "pycon",
    "pypylog" => "pypylog",
    "pytb" => "pytb",
    "python" => "python",
    "python3" => "python3",
    "ragel" => "ragel",
    "ragel-c" => "ragel-c",
    "ragel-cpp" => "ragel-cpp",
    "ragel-d" => "ragel-d",
    "ragel-em" => "ragel-em",
    "ragel-java" => "ragel-java",
    "ragel-objc" => "ragel-objc",
    "ragel-ruby" => "ragel-ruby",
    "raw" => "raw",
    "rb" => "rb",
    "rbcon" => "rbcon",
    "rconsole" => "rconsole",
    "rebol" => "rebol",
    "redcode" => "redcode",
    "rhtml" => "rhtml",
    "rst" => "rst",
    "sass" => "sass",
    "scala" => "scala",
    "scaml" => "scaml",
    "scheme" => "scheme",
    "scilab" => "scilab",
    "scss" => "scss",
    "smalltalk" => "smalltalk",
    "smarty" => "smarty",
    "sml" => "sml",
    "snobol" => "snobol",
    "sourceslist" => "sourceslist",
    "splus" => "splus",
    "sql" => "sql",
    "sqlite3" => "sqlite3",
    "squidconf" => "squidconf",
    "ssp" => "ssp",
    "sv" => "sv",
    "tcl" => "tcl",
    "tcsh" => "tcsh",
    "tea" => "tea",
    "tex" => "tex",
    "text" => "text",
    "trac-wiki" => "trac-wiki",
    "urbiscript" => "urbiscript",
    "v" => "v",
    "vala" => "vala",
    "vb.net" => "vb.net",
    "velocity" => "velocity",
    "vhdl" => "vhdl",
    "vim" => "vim",
    "xml" => "xml",
    "xml+cheetah" => "xml+cheetah",
    "xml+django" => "xml+django",
    "xml+erb" => "xml+erb",
    "xml+evoque" => "xml+evoque",
    "xml+mako" => "xml+mako",
    "xml+myghty" => "xml+myghty",
    "xml+php" => "xml+php",
    "xml+smarty" => "xml+smarty",
    "xml+velocity" => "xml+velocity",
    "xquery" => "xquery",
    "xslt" => "xslt",
    "yaml" => "yaml",
};

sub uri { "https://paste.debian.net/" }

sub fill_form {
    my $self = shift;
    my $mech = shift;
    my %args = @_;
    my $lang = $languages->{$args{lang}} if $args{lang};

    $mech->form_number(1);
    if ($args{private}) {
        $mech->tick('private', '1');
    }
    $mech->submit_form(
        fields        => {
            code => $args{text},
            do { $args{nick} ? (poster => $args{nick}) : () },
            do { $lang ? (lang => $lang) : () },
        },
    );
}

sub return {
    my $self = shift;
    my $mech = shift;

    my $link = $mech->uri();

    return (1, $link);
}

1;

__END__