File Coverage

lib/Messaging/Courier/ExampleMessage.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Messaging::Courier::ExampleMessage;

use strict;
use warnings;

use XML::LibXML;
use Messaging::Courier::Message;
use Messaging::Courier::ExampleReply;
use base qw( Messaging::Courier::Message );

sub username {
  my $self = shift;
  if (@_) {
    $self->{ username } = shift;
    return $self;
  }
  return $self->{ username };
}

sub password {
  my $self = shift;
  if (@_) {
    $self->{ password } = shift;
    return $self;
  }
  return $self->{ password };
}

sub serialize {
  my $self = shift;

  $self->addNode( 'username', contents => $self->username);
  $self->addNode( 'password', contents => $self->password);
}

sub reply_class {
  return 'Messaging::Courier::ExampleReply';
}

1;