File Coverage

blib/lib/WebService/FogBugz.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package WebService::FogBugz;

use warnings;
use strict;

our $VERSION = '0.1.2';

#----------------------------------------------------------------------------
# Library Modules

use LWP::UserAgent;
use WebService::FogBugz::Config;
use XML::Liberal;
use XML::LibXML;

#----------------------------------------------------------------------------
# Public API

sub new {
    my $class = shift;
    my $param = { @_ };
    my $atts = {};

    my $self = bless $atts, $class;
    $self->{UA} = $param->{ua} || LWP::UserAgent->new;
    $self->{UA}->agent(__PACKAGE__.'/'.$VERSION);
    $self->{PARSER} = XML::Liberal->new('LibXML');

    die 'no configuration parameters'
        unless $param;

    $self->{CONFIG} = WebService::FogBugz::Config->new( %$param );
    die 'no configuration parameters'
        unless $self->{CONFIG};

    die 'no instance of FogBugz specified '
        unless $self->{CONFIG}->base_url;
    die 'no login details of FogBugz instance specified '
        unless ($self->{CONFIG}->token || ($self->{CONFIG}->email && $self->{CONFIG}->password));

    $self->logon;
    die 'unable to log into the specified instance of FogBugz'
        unless $self->{token};

#    $self->{COMMAND} = WebService::FogBugz::Command->new(
#        base_url    => $self->{CONFIG}->base_url,
#        token       => $self->{token}
#    );

    return $self;
}

sub logon {
    my $self = shift;

    if($self->{CONFIG}->token) {
        $self->{token} = $self->{CONFIG}->token;

    } else {
        my $res = $self->{UA}->get(
            $self->{CONFIG}->base_url
            . '?cmd=logon'
            . '&email=' . $self->{CONFIG}->email
            . '&password=' . $self->{CONFIG}->password);

        return  if ($self->_is_error($res->content));

        my $doc = $self->{PARSER}->parse_string($res->content);
        $self->{token} = $doc->findvalue("//*[local-name()='response']/*[local-name()='token']/text()");
    }

    return $self->{token};
}

sub logoff {
    my $self = shift;
    my $res = $self->{UA}->get(
        $self->{CONFIG}->base_url
        . '?cmd=logoff'
        . '&token=' . $self->{token});

    return  if ($self->_is_error($res->content));

    delete $self->{token};
    return;
}

sub request_method {
    my ($self, $cmd, $param) = @_;
    my $query = join('', map {'&' . $_ . '=' . $param->{$_}} keys(%$param));
    my $res = $self->{UA}->get(
        $self->{CONFIG}->base_url
        . '?cmd=' . $cmd
        . '&token=' . $self->{token}
        . $query);

    return  if ($self->_is_error($res->content));

    return $res->content;
}

sub _is_error {
    my ($self, $content)  = @_;
    $content =~ s/<\?xml\s+.*?\?>//g;
    return 1    unless($content && $content =~ /

    my $doc  = $self->{PARSER}->parse_string($content);
    $self->{error}{code} = $doc->findvalue("//*[local-name()='response']/*[local-name()='error']/\@code");
    $self->{error}{msg}  = $doc->findvalue("//*[local-name()='response']/*[local-name()='error']/text()");
    return $self->{error}{code} ? '1' : '0';
}

1;

__END__