/usr/local/CPAN/Google-Checkout/Google/Checkout/XML/NotificationResponseXmlWriter.pm

• package Google::Checkout::XML::NotificationResponseXmlWriter
  • new
• EOF

package Google::Checkout::XML::NotificationResponseXmlWriter;

#--
#-- Always return a valid response XML for the various Google checkout notifications.
#--

use strict;
use warnings;

use Google::Checkout::XML::Writer;
use Google::Checkout::XML::Constants;
our @ISA = qw/Google::Checkout::XML::Writer/;

sub new 
{
  my ($class, %args) = @_;
  
  delete $args{root};

  my $self = $class->SUPER::new(%args);

  my $xml_schema = $args{gco}->reader() ?
                   $args{gco}->reader()->get(Google::Checkout::XML::Constants::XML_SCHEMA) :
                   $args{gco}->{__xml_schema};

  $self->add_element(name => Google::Checkout::XML::Constants::NOTIFICATION_ACKNOWLEDGMENT,
                     attr => [xmlns => $xml_schema]);

  return bless $self => $class;
}

1;