File Coverage

blib/lib/WebService/Salesforce/Message.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package WebService::Salesforce::Message;

use Moo;
use XML::LibXML;
use WebService::Salesforce::Message::Notification;

our $VERSION = '0.04';

has 'xml' => ( is => 'ro', required => 1 );

has 'dom' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        XML::LibXML->load_xml( string => $self->xml );
        }
);

has 'notifications_element' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self                      = shift;
        my ( $node )                  = $self->dom->findnodes( '/soapenv:Envelope/soapenv:Body' );
        my ( $notifications_element ) = $node->getChildrenByTagName( 'notifications' );

        return $notifications_element;

        }
);

has 'notifications' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self                  = shift;
        my $notification_elements = $self->notifications_element->getChildrenByTagName( 'Notification' );

        my @notifications;
        foreach my $notification_element ( @{$notification_elements} ) {
            push @notifications, WebService::Salesforce::Message::Notification->new( {
                    notification_element => $notification_element } );
        }
        return \@notifications;
        }
);

has 'organization_id' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        return $self->notifications_element->getChildrenByTagName( 'OrganizationId' )->[0]
            ->textContent;
        }
);

has 'action_id' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        return $self->notifications_element->getChildrenByTagName( 'ActionId' )->[0]
            ->textContent;
        }
);

has 'session_id' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        return $self->notifications_element->getChildrenByTagName( 'SessionId' )->[0]
            ->textContent;
        }
);

has 'enterprise_url' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        return $self->notifications_element->getChildrenByTagName( 'EnterpriseUrl' )->[0]
            ->textContent;
        }
);

has 'partner_url' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my $self = shift;
        return $self->notifications_element->getChildrenByTagName( 'PartnerUrl' )->[0]
            ->textContent;
        }
);

has 'ack' => (
    is      => 'ro',
    default => sub {
        return <




            true



ACK
        }
);

1;

__END__