view release on metacpan or  search on metacpan

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

sub get {
    my $self = shift;
    my $mech = shift;
    my %args = @_;

    $mech->{__username} = $args{username}
        if exists($args{username}) && $args{username};
    $mech->{__password} = $args{password}
        if exists($args{password}) && $args{password};

    return $self->SUPER::get($mech => @_);
}

sub post_content {
    my ($self, %args) = @_;

    return {
        paste => 'Send',
        code2 => $args{text},
        poster => exists($args{nick})? $args{nick} : '',
        format => exists($self->FORMATS->{$args{lang}})? $args{lang} : 'text',