package ReportResponse;
use Data::Dumper;

=pod

=begin WSDL

_ATTR result $boolean resultcode, 1 on success, 0 on failure
_ATTR message $string error message (only on failure)

=end WSDL

=cut

sub new {

  open LOG, ">>/tmp/bandwidthservice.log";
  print LOG "Response\n";
  print LOG Dumper(@_);
  close LOG;

  my $class = "ReportResponse";
  my %in = @_;
  my $self = {};
  $self->{result}          => $in{result};
  $self->{message}         => $in{message};
  bless $self, $class;
  return $self;
}
1;