Permalink
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...
1 parent 396a253 commit 50414064376c913a65d2f66d97564e81ea5bfd1b @kaoru kaoru committed with schwern Dec 2, 2009
Showing with 60 additions and 26 deletions.
  1. +6 −0 Changes
  2. +12 −10 META.yml
  3. +13 −13 Makefile.PL
  4. +1 −1 lib/WebService/Nestoria/Search.pm
  5. +10 −0 lib/WebService/Nestoria/Search/Result.pm
  6. +18 −2 t/04-result.t
View
@@ -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
@@ -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
@@ -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' => {}
)
;
@@ -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;
@@ -40,13 +40,17 @@ as follows:
get_price_type
get_price_currency
get_price_formatted
+ get_price_high
+ get_price_low
get_title
get_summary
get_bedroom_number
get_bathroom_number
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,13 +78,17 @@ 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} }
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
@@ -17,7 +17,7 @@ if (! WebService::Nestoria::Search->test_connection) {
##########################################################################
## plan
##
-plan tests => 34;
+plan tests => 39;
my ($ns, $result);
##########################################################################
@@ -63,13 +63,17 @@ my @fields = qw(
price_type
price_currency
price_formatted
+ price_high
+ price_low
title
summary
bedroom_number
bathroom_number
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";
+ }
}

0 comments on commit 5041406

Please sign in to comment.