File Coverage

blib/lib/WWW/Wolfram/DataDrop.pm

Criterion	Covered	Total	%
statement	8	26	30.7
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	0	5	0.0
total	11	40	27.5

package WWW::Wolfram::DataDrop;

use strict;
use 5.008_005;
our $VERSION = '0.01';

require Exporter;
our @ISA = 'Exporter';
our @EXPORT = qw/Databin/;

use LWP::UserAgent;

sub Databin {
    my ($id, %opts) = @_;
    my $self = __PACKAGE__->new(bin => $id, %opts);
    return $self;
}

sub new {
    my ($class, %opts) = @_;
    my $self = \%opts;
    my $ua_opts = delete $self->{opts};
    $self->{ua} = LWP::UserAgent->new(%$ua_opts);
    return bless $self, $class;
}

sub add {
    my ($self, %values) = @_;
    $values{bin} = $self->{bin};
    return $self->_send(%values);
}

sub _send {
    my ($self, %values) = @_;
    my $res = $self->ua->post($self->url, [%values]);
    return $res->is_success;
}

sub ua {
    my $self = shift;
    return $self->{ua};
}

sub url {
    my $self = shift;
    return 'https://datadrop.wolframcloud.com/api/v1.0/Add';
}

1;
__END__