Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

import WebService-Nestoria-Search v1.17.0 from CPAN

git-cpan-module:   WebService-Nestoria-Search
git-cpan-version:  v1.17.0
git-cpan-authorid: KAORU
git-cpan-file:     authors/id/K/KA/KAORU/WebService-Nestoria-Search-v1.17.0.tar.gz
  • Loading branch information...
commit 50414064376c913a65d2f66d97564e81ea5bfd1b 1 parent 396a253
@kaoru kaoru authored schwern committed
View
6 Changes
@@ -1,3 +1,9 @@
+--- 1.17.0 (2/12/2009) ---
+ * updated to match version 1.17 of the API
+ * added price_high and price_low as fields in the Result object
+ * added auction_date as a field in the Result object
+ * added land_size and land_size unit as fields in the Result object
+
--- 1.16.2 (29/9/2009) ---
* further changes to t/xx-perl_critic.t to stop erroneous failures
* renamed CHANGES to Changes to match other CPAN modules
View
22 META.yml
@@ -1,12 +1,17 @@
---
name: WebService-Nestoria-Search
-version: 1.16.2
+version: v1.17.0
author:
- 'Alex Balhatchet (kaoru at slackwise dot net), Yoav Felberbaum (perl at mrdini dot com), Alistair Francis (cpan at alizta dot com)'
abstract: 'WebService::Nestoria::Search provides a Perl interface to the public API of Nestoria, a vertical search engine for property listings. Nestoria currently has listings for the UK, Germany, Italy and Spain, which can be accessed via the web at www.nestoria.co.uk, www.nestoria.de, www.nestoria.co.it and www.nestoria.es.'
license: perl
resources:
license: http://dev.perl.org/licenses/
+build_requires:
+ List::MoreUtils: 0
+ Module::Build: 0
+ Test::More: 0
+ Test::Warn: 0
requires:
Carp: 0
HTTP::Request: 0
@@ -15,15 +20,12 @@ requires:
URI: 0
XML::Simple: 0
version: 0
-build_requires:
- List::MoreUtils: 0
- Module::Build: 0
- Test::More: 0
- Test::Warn: 0
+configure_requires:
+ Module::Build: 0.35
provides:
WebService::Nestoria::Search:
file: lib/WebService/Nestoria/Search.pm
- version: 1.16.2
+ version: v1.17.0
WebService::Nestoria::Search::MetadataResponse:
file: lib/WebService/Nestoria/Search/MetadataResponse.pm
WebService::Nestoria::Search::Request:
@@ -32,7 +34,7 @@ provides:
file: lib/WebService/Nestoria/Search/Response.pm
WebService::Nestoria::Search::Result:
file: lib/WebService/Nestoria/Search/Result.pm
-generated_by: Module::Build version 0.3
+generated_by: Module::Build version 0.35
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
View
26 Makefile.PL
@@ -1,24 +1,24 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.30
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'PL_FILES' => {},
- 'INSTALLDIRS' => 'site',
'NAME' => 'WebService::Nestoria::Search',
- 'EXE_FILES' => [],
'VERSION_FROM' => 'lib/WebService/Nestoria/Search.pm',
'PREREQ_PM' => {
- 'URI' => 0,
- 'version' => 0,
- 'XML::Simple' => 0,
'Carp' => 0,
- 'Test::More' => 0,
- 'Test::Warn' => 0,
- 'LWP::UserAgent' => 0,
- 'Module::Build' => 0,
+ 'HTTP::Request' => 0,
'JSON' => '2',
+ 'LWP::UserAgent' => 0,
'List::MoreUtils' => 0,
- 'HTTP::Request' => 0
- }
+ 'Module::Build' => 0,
+ 'Test::More' => 0,
+ 'Test::Warn' => 0,
+ 'URI' => 0,
+ 'XML::Simple' => 0,
+ 'version' => 0
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
View
2  lib/WebService/Nestoria/Search.pm
@@ -4,7 +4,7 @@ use warnings;
package WebService::Nestoria::Search;
use Carp;
-use version; our $VERSION = qv('1.16.2');
+use version; our $VERSION = qv('1.17.0');
use WebService::Nestoria::Search::Request;
use WebService::Nestoria::Search::MetadataResponse;
View
10 lib/WebService/Nestoria/Search/Result.pm
@@ -40,6 +40,8 @@ as follows:
get_price_type
get_price_currency
get_price_formatted
+ get_price_high
+ get_price_low
get_title
get_summary
get_bedroom_number
@@ -47,6 +49,8 @@ as follows:
get_room_number
get_size
get_size_unit
+ get_land_size
+ get_land_size_unit
get_thumb_url
get_thumb_height
get_thumb_width
@@ -57,6 +61,7 @@ as follows:
get_guid
get_commission
get_construction_year
+ get_auction_date
get_updated_in_days
get_updated_in_days_formatted
@@ -73,6 +78,8 @@ sub get_price { shift->{data}{listing}{price}
sub get_price_type { shift->{data}{listing}{price_type} }
sub get_price_currency { shift->{data}{listing}{price_currency} }
sub get_price_formatted { shift->{data}{listing}{price_formatted}; }
+sub get_price_high { shift->{data}{listing}{price_high}; }
+sub get_price_low { shift->{data}{listing}{price_low}; }
sub get_title { shift->{data}{listing}{title} }
sub get_summary { shift->{data}{listing}{summary} }
sub get_bedroom_number { shift->{data}{listing}{bedroom_number} }
@@ -80,6 +87,8 @@ sub get_bathroom_number { shift->{data}{listing}{bathroom_number}
sub get_room_number { shift->{data}{listing}{room_number} }
sub get_size { shift->{data}{listing}{size} }
sub get_size_unit { shift->{data}{listing}{size_unit} }
+sub get_land_size { shift->{data}{listing}{land_size} }
+sub get_land_size_unit { shift->{data}{listing}{land_size_unit} }
sub get_thumb_url { shift->{data}{listing}{thumb_url} }
sub get_thumb_height { shift->{data}{listing}{thumb_height} }
sub get_thumb_width { shift->{data}{listing}{thumb_width} }
@@ -92,6 +101,7 @@ sub get_updated_in_days { shift->{data}{listing}{updated_in_days}
sub get_updated_in_days_formatted { shift->{data}{listing}{get_updated_in_days_formatted} }
sub get_construction_year { shift->{data}{listing}{get_construction_year} }
sub get_commission { shift->{data}{listing}{get_commission} }
+sub get_auction_date { shift->{data}{listing}{get_auction_date} }
=head2 get_hashref
View
20 t/04-result.t
@@ -17,7 +17,7 @@ if (! WebService::Nestoria::Search->test_connection) {
##########################################################################
## plan
##
-plan tests => 34;
+plan tests => 39;
my ($ns, $result);
##########################################################################
@@ -63,6 +63,8 @@ my @fields = qw(
price_type
price_currency
price_formatted
+ price_high
+ price_low
title
summary
bedroom_number
@@ -70,6 +72,8 @@ my @fields = qw(
room_number
size
size_unit
+ land_size
+ land_size_unit
thumb_url
thumb_height
thumb_width
@@ -80,12 +84,24 @@ my @fields = qw(
guid
commission
construction_year
+ auction_date
updated_in_days
updated_in_days_formatted
);
foreach my $field (@fields) {
my $func = "get_$field";
- eval { $result->$func() };
+ my $rv;
+
+ eval { $rv = $result->$func() };
+
ok !$@, "called $func";
+
+ if ($@) {
+ print "error: $@\n";
+ }
+ else {
+ $rv = defined($rv) ? $rv : 'undef'; # stringify 'undef' for output
+ print "result: $rv\n";
+ }
}
Please sign in to comment.
Something went wrong with that request. Please try again.