File Coverage

lib/eBay/API/XML/ResponseDataType.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

#!/usr/bin/perl -w

package eBay::API::XML::ResponseDataType;

use strict;

use Exporter;
use eBay::API::XML::DataType::AbstractResponseType;
our @ISA = ('Exporter'
		, 'eBay::API::XML::DataType::AbstractResponseType');

my @gaProperties = (  );
push @gaProperties,
@{eBay::API::XML::DataType::AbstractResponseType::getPropertiesList()};

my @gaAttributes = ( ['xmlns', 'xs:string', '', ''] );
push @gaAttributes,
@{eBay::API::XML::DataType::AbstractResponseType::getAttributesList()};

sub new {
  my $classname = shift;
  my %args = @_;

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

  $self->{'xmlns'} = 'urn:ebay:apis:eBLBaseComponents';

  return $self;
}

sub getPropertiesList {
  my $self = shift;
  return \@gaProperties;
}

sub getAttributesList {
  my $self = shift;
  return \@gaAttributes;
}

1;