File Coverage

blib/lib/Log/Dispatch/FogBugz.pm

Criterion	Covered	Total	%
statement	18	43	41.8
branch	0	10	0.0
condition	0	11	0.0
subroutine	6	9	66.6
pod	2	2	100.0
total	26	75	34.6

package Log::Dispatch::FogBugz;

use warnings;
use strict;
use Log::Dispatch::Output;
use base qw/Log::Dispatch::Output/;
use Carp qw{croak};

use LWP::UserAgent;

our $VERSION = '0.1';

sub new {
  my $proto = shift;
  my $class = ref $proto || $proto;

  my %p = @_;

  my $self = bless {}, $class;

  $self->_basic_init(%p);
  $self->_init(%p);
  return $self;
}

sub log_message {
    my $self = shift;
    my %p = @_;

    $self->{form}{Description} = $self->{params}{DescriptionPrefix} ? $self->{params}{DescriptionPrefix} : '';
    $p{message} =~ $self->{params}{DescriptionRegex};

    if ( $1 ) {
        $self->{form}{Description} .= $1;
    }

    $self->{form}{Extra} = $p{message};

    my $ua = LWP::UserAgent->new;
    my $resp = $ua->post($self->{params}{URL}, $self->{form});
}

sub _init {
    my ( $self, %opts ) = @_;
    $self->{params} = \%opts;

    foreach my $req ( qw/URL Project User Area/ ) {
        croak "Required configuration parameter `$req` was not defined" unless defined $opts{$req};
    }

    unless ( $opts{DescriptionPrefix} or $opts{DescriptionRegex} ) {
        croak "One of DescriptionPrefix or DescriptionRegex options are required";
    }

    if ( $opts{DescriptionRegex} and ref($opts{DescriptionRegex}) ne 'Regexp' ) {
        croak "DescriptionRegex must be a compiled regex (use qr{})";
    }

    $self->{form} = {
        ScoutProject      => $opts{Project}
      , ScoutUserName     => $opts{User}
      , ScoutArea         => $opts{Area}
      , ForceNewBug       => ( $opts{ForceNewBug} || 0 )
      , FriendlyResponse  => 0
    };
}

__END__