view release on metacpan or  search on metacpan

lib/WWW/StreamSend.pm  view on Meta::CPAN

    my $self = {
        login_id => $params->{login_id} || $params->{login},
        key => $params->{key},
        ua  => LWP::UserAgent->new,
        xs  => XML::Simple->new,
    };

    $self->{ua}->agent("Mozilla/5.0");

    bless $self => $class;
    return $self;
}

sub get_emails {
    my ($self) = @_;
    my $res = $self->_send_request('emails');

    return $res->{content};
}

lib/WWW/StreamSend/Response.pm  view on Meta::CPAN

use strict;
use warnings;

sub new {
    my ($class, $params) = @_;
    my $self = {
        data    => $params->{data},
        xml     => $params->{xml},
    };
    bless $self => $class;
    return $self;
}

sub as_xml {
    my ($self) = @_;
    return $self->{xml};
}

sub fields {
    my ($self) = @_;