Skip Menu |

This queue is for tickets about the Net-OpenSRS CPAN distribution.

Report information
The Basics
Id: 113744
Status: new
Priority: 0/
Queue: Net-OpenSRS
People
Owner: Nobody in particular
Requestors: btarratt [...] clearrate.com
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Wed Apr 13 11:44:01 2016 btarratt [...] clearrate.com - Ticket created
Subject: request: get_price()
Date: Wed, 13 Apr 2016 15:43:48 +0000
To: "bug-Net-OpenSRS [...] rt.cpan.org" <bug-Net-OpenSRS [...] rt.cpan.org>
From: Brad Tarratt <btarratt [...] clearrate.com>
=item get_price() my $results = $srs->get_price( 'example.com' ); Fetch and return price of domain. =cut sub get_price { my ($self, $domain) = @_; $rv = $srs->make_request( { action => 'get_price', object => 'domain', attributes => { domain => $dom->{'name'}, type => 'all_info', } } ); return undef unless $rv; return undef unless $rv->{'success'}; $self->_set_response; return $rv->{attributes}->{price}; }
  Wed Apr 13 11:50:04 2016 btarratt [...] clearrate.com - Correspondence added
Subject: RE: [rt.cpan.org #113744] AutoReply: request: get_price()
Date: Wed, 13 Apr 2016 15:49:53 +0000
To: "bug-Net-OpenSRS [...] rt.cpan.org" <bug-Net-OpenSRS [...] rt.cpan.org>
From: Brad Tarratt <btarratt [...] clearrate.com>
actually, should be s/$dom->{'name'}/$domain/ Show quoted text
________________________________________ From: Bugs in Net-OpenSRS via RT [bug-Net-OpenSRS@rt.cpan.org] Sent: Wednesday, April 13, 2016 11:44 AM To: Brad Tarratt Subject: [rt.cpan.org #113744] AutoReply: request: get_price() Greetings, This message has been automatically generated in response to the creation of a trouble ticket regarding: "request: get_price()", a summary of which appears below. There is no need to reply to this message right now. Your ticket has been assigned an ID of [rt.cpan.org #113744]. Your ticket is accessible on the web at: https://rt.cpan.org/Ticket/Display.html?id=113744 Please include the string: [rt.cpan.org #113744] in the subject line of all future correspondence about this issue. To do so, you may reply to this message. Thank you, bug-Net-OpenSRS@rt.cpan.org ------------------------------------------------------------------------- =item get_price() my $results = $srs->get_price( 'example.com' ); Fetch and return price of domain. =cut sub get_price { my ($self, $domain) = @_; $rv = $srs->make_request( { action => 'get_price', object => 'domain', attributes => { domain => $dom->{'name'}, type => 'all_info', } } ); return undef unless $rv; return undef unless $rv->{'success'}; $self->_set_response; return $rv->{attributes}->{price}; }