view release on metacpan or  search on metacpan

lib/App/Nopaste/Service/PastebinComAPI.pm  view on Meta::CPAN

    require WWW::Pastebin::PastebinCom::API;

    my $bin = WWW::Pastebin::PastebinCom::API->new(
        api_key  => $api_key,
        user_key => $user_key,
    );

    delete $args{nick} if defined $args{nick};
    $args{title}  = delete $args{desc} if defined $args{desc};
    $args{format} = delete $args{lang} if defined $args{lang};
    $args{unlisted} = 1 unless $args{private};

    my $ok = $bin->paste(
        delete($args{text}),
        expiry => 'm1',
        %args,
    );

    return (0, $bin->error) unless $ok;
    return (1, $bin->paste_url);
}



q|
Q: How many programmers does it take to change a light bulb?
A: None. It's a hardware problem.
|;

__END__

=encoding utf8

=head1 NAME

App::Nopaste::Service::PastebinComAPI - App::Nopaste service for www.pastebin.com using their API

=head1 CONFIGURATION

To use this L<App::Nopaste> service, you need to setup two
environmental variables: B<APP_NOPASTE_PASTEBINCOM_API_KEY> and
B<APP_NOPASTE_PASTEBINCOM_USER_KEY>

=head2 C<APP_NOPASTE_PASTEBINCOM_API_KEY>

The C<APP_NOPASTE_PASTEBINCOM_API_KEY> environmental variable needs
to contain your pastebin.com API key. To obtain the key, create
a free pastebin.com account, and then go on L<http://pastebin.com/api>
and the key will be shown in the 'Your Unique Developer API Key' section.

=head2 C<APP_NOPASTE_PASTEBINCOM_USER_KEY>

The C<APP_NOPASTE_PASTEBINCOM_USER_KEY> environmental variable needs to
contain your pastebin.com USER key. You can obtain a user key by
running this piece of code, changing C<YOUR_API_KEY_HERE> to your
pastebin.com API key, C<YOUR_PASTEBIN_LOGIN_HERE> to your pastebin.com
login, and C<YOUR_PASTEBIN_PASSWORD_HERE> to your pastebin.com password:

    perl -MWWW::Pastebin::PastebinCom::API -wle "print WWW::Pastebin::PastebinCom::API->new( api_key =>  q|YOUR_API_KEY_HERE|)->get_user_key(qw/YOUR_PASTEBIN_LOGIN_HERE  YOUR_PASTEBIN_PASSWORD_HERE/);"

Note: pastebin.com/api has this to say about the user key:
C<if an invalid api_user_key or no key is used, the paste will be
created as a guest>.

=head1 SEE ALSO

L<WWW::Pastebin::PastebinCom::API>, L<App::Nopaste>,
L<App::Nopaste::Service::PastebinCom>

=head1 AUTHOR

Zoffix Znet, C<< <zoffix at cpan.org> >>

=head1 REPOSITORY

Fork this module on GitHub:
L<https://github.com/zoffixznet/App-Nopaste-Service-PastebinComAPI>

=head1 BUGS

To report bugs or request features, please use
L<https://github.com/zoffixznet/App-Nopaste-Service-PastebinComAPI/issues>

If you can't access GitHub, you can email your request
to C<bug-app-nopaste-service-pastebincomapi at rt.cpan.org>

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc App::Nopaste::Service::PastebinComAPI

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker (report bugs here)

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=App-Nopaste-Service-PastebinComAPI>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/App-Nopaste-Service-PastebinComAPI>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/App-Nopaste-Service-PastebinComAPI>

=item * Search CPAN

L<http://search.cpan.org/dist/App-Nopaste-Service-PastebinComAPI/>

=back

=head1 LICENSE AND COPYRIGHT

Copyright 2014 Zoffix Znet.

This program is free software; you can redistribute it and/or modify it
under the terms of the the Artistic License (2.0). You may obtain a
copy of the full license at: