File Coverage

blib/lib/Tropo/RestAPI/Session.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Tropo::RestAPI::Session;

# ABSTRACT: Tropo session handling

use strict;
use warnings;

use Moo;
use XML::Simple;

extends 'Tropo::RestAPI::Base';

our $VERSION = 0.05;

sub create {
    my ($self, %param) = @_;

    if ( !defined $param{token} ) {
        return;
    }

    $param{action} = 'create';

    my $delim = substr( $self->url, -1 ) eq '/' ? '' : '/';

    my $session_url = $self->url . $delim . 'sessions';
    my $response    = $self->get(
        $session_url,
        \%param,
    );

    if ( !$response ) {
        $self->err( 'Cannot connect to ' . $session_url );
        return;
    }

    if ( !$response->{success} ) {
        $self->err( $response->{reason} . ': ' . $response->{content} );
        return;
    }

    if ( !$response->{content} ) {
        $self->err( 'Tropo session launch failed!' );
        return;
    }

    if ( !$self->redirect && $response->{url} !~ m{ \A \Q$session_url\E }xms ) {
        $self->err( 'Reponse from differen URL as the request was sent to!' );
        return;
    }

    my $data = XMLin( $response->{content} );

    return $data;
}


1;

__END__