Skip Menu |

This queue is for tickets about the WebService-EveOnline CPAN distribution.

Report information
The Basics
Id: 41617
Status: open
Priority: 0/
Queue: WebService-EveOnline

People
Owner: Nobody in particular
Requestors: mithaldu [...] yahoo.de
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: asset data not exportable
Date: Thu, 11 Dec 2008 05:09:29 +0100
To: bug-WebService-EveOnline [...] rt.cpan.org
From: "Christian Walde" <mithaldu [...] yahoo.de>
Hello, When trying to access the assets of a character the following line complains about $data not being a hashref: $data->{_status} ||= "ok"; This is caused by this earlier line: } elsif ($command eq "assets") { $data = $pre->{result}->{rowset}->{row}; Due to the XML structure it needs to be changed in this to actually work: } elsif ($command eq "assets") { $data = $pre->{result}->{rowset}; I'd also suggest using XML::Bare like this: use XML::Bare; my $xml = new XML::Bare( text => $xml_content ); my $root = $xml->simple(); It has the same output as XML::Simple and seems to be a good bit faster. Lastly, thanks for your work on this. :) -- With regards, Christian Walde As too many people send me top- and fully-quoted emails, here is a guide on how to be considerate when sending emails to other people: http://www.xs4all.nl/~hanb/documents/quotingguide.html -- Show quoted text
___________________________________________________________ Der frühe Vogel fängt den Wurm. Hier gelangen Sie zum neuen Yahoo! Mail: http://mail.yahoo.de
Thanks for reporting this! I'm still investigating how best to deal with assets given that the information the API reveals about them is quite... terse, and will hopefully have an update soon. Chris On Wed Dec 10 23:09:57 2008, Xenofur wrote: Show quoted text
> Hello, > > When trying to access the assets of a character the following line > complains about $data not being a hashref: > $data->{_status} ||= "ok"; > > This is caused by this earlier line: > } elsif ($command eq "assets") { > $data = $pre->{result}->{rowset}->{row}; > > Due to the XML structure it needs to be changed in this to actually > work: > } elsif ($command eq "assets") { > $data = $pre->{result}->{rowset}; > > > > I'd also suggest using XML::Bare like this: > use XML::Bare; > my $xml = new XML::Bare( text => $xml_content ); > my $root = $xml->simple(); > > It has the same output as XML::Simple and seems to be a good bit > faster. > > > Lastly, thanks for your work on this. :) >
Subject: Re: [rt.cpan.org #41617] asset data not exportable
Date: Thu, 18 Dec 2008 22:12:44 +0100
To: bug-WebService-EveOnline [...] rt.cpan.org
From: "Christian Walde" <mithaldu [...] yahoo.de>
On Thu, 18 Dec 2008 19:31:05 +0100, Chris Carline via RT <bug-WebService-EveOnline@rt.cpan.org> wrote: Show quoted text
> I'm still investigating how best to deal with assets given that the information the API reveals > about them is quite... terse, and will hopefully have an update soon. >
In that case it might be best if, instead of assigning the result to $data, you'd assign it to $data->{_content}. And while i'm at it, for the sake of readability you might want to upgrade the module to perl 5.10 and use the given/when syntax. :) Show quoted text
___________________________________________________________ Der frühe Vogel fängt den Wurm. Hier gelangen Sie zum neuen Yahoo! Mail: http://mail.yahoo.de