view release on metacpan or  search on metacpan

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

sub uri { "http://p.linode.com" }

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

    $args{username} ||= 'no';
    $args{password} ||= 'spam';
    
    return $self->SUPER::get($mech => %args);
}

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

    my $content = $self->SUPER::post_content(%args);

    # On p.linode.com the code2 parameter is called code2z for some
    # reason.
    $content->{code2z} = delete $content->{code2};

    return $content;
}

=head1 NAME