debug, spacing, quotes

This commit is contained in:
Isaac Connor 2020-06-25 16:04:50 -04:00
parent 85e1dcadf4
commit 08afb50efa
1 changed files with 23 additions and 34 deletions

View File

@ -20,18 +20,16 @@ sub START {
sub Subscribe {
my ($self, $body, $header) = @_;
die "Subscribe must be called as object method (\$self is <$self>)" if not blessed($self);
#print " proxy/lib/WSNotification/Interfaces/WSBaseNotificationSender/NotificationProducerPort.pm Subscribe\n";
return $self->SUPER::call({
operation => 'Subscribe',
soap_action => 'http://docs.oasis-open.org/wsn/bw-2/Subscribe',
style => 'document',
body => {
'use' => 'literal',
use => 'literal',
namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
encodingStyle => '',
parts => [qw( WSNotification::Elements::Subscribe )],
},
header => {
@ -42,7 +40,6 @@ sub Subscribe {
}, $body, $header);
}
sub GetCurrentMessage {
my ($self, $body, $header) = @_;
die "GetCurrentMessage must be called as object method (\$self is <$self>)" if not blessed($self);
@ -51,9 +48,7 @@ sub GetCurrentMessage {
soap_action => 'http://docs.oasis-open.org/wsn/bw-2/GetCurrentMessage',
style => 'document',
body => {
'use' => 'literal',
use => 'literal',
namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
encodingStyle => '',
parts => [qw( WSNotification::Elements::GetCurrentMessage )],
@ -68,13 +63,7 @@ sub GetCurrentMessage {
}, $body, $header);
}
1;
__END__
=pod