CPAN::Groonga

ithub.com/

our $VERSION = '1.013';

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

use LWP::UserAgent;
use JSON::MaybeXS;
use Module::Runtime 'use_module';
use Path::Tiny;
use namespace::clean 0.19;

sub avail

 $ua = LWP::UserAgent->new;

    my $content = {
        public => defined $arg{private} ? JSON->false : JSON->true,
        defined $arg{desc} ? (description => $arg{desc}) : (),
    };

    my $file

        $filename => {
            content => $arg{text}
        }
    };

    $content = encode_json($content);

    my %auth = $self->_get_auth;

    my $url = 'https://api.github.com/gists';

    

hitext" => "js+genshitext",
    "js+mako" => "js+mako",
    "js+myghty" => "js+myghty",
    "json" => "json",
    "jsp" => "jsp",
    "js+php" => "js+php",
    "js+smarty" => "js+smarty",
    "kotlin"

e provider for GitLab snippets

our $VERSION = '1.013';

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

use JSON::MaybeXS;
use LWP::UserAgent;
use Path::Tiny;
use namespace::clean 0.19;

my $config;
sub config 

}
                 ? path($arg{filename})->basename
                 : 'nopaste';

    my $json = encode_json({
        title       => $desc,
        file_name   => $filename,
        visibility  => $

    'PRIVATE-TOKEN' => $self->config->{token},
        Content         => $json,
        Content_Type    => 'application/json',
    );

    return $self->return($res);
}

sub return {
    my ($self, $