@@ -1,4 +1,10 @@
-Revision history for Perl distribution WWW-Scraper-ISBN-ORA_Driver.
+Revision history for WWW-Scraper-ISBN-ORA_Driver
+================================================
+
+0.21 2014-07-28
+ - added git repository links to metadata.
+ - fixed distribution name in META.
+ - upgrade to WWW-Scraper-ISBN-1.00.
0.20 2013-03-17
- added isbn-check.pl to examples.
@@ -1,6 +1,6 @@
LICENSE FOR WWW-Scraper-ISBN-ORA_Driver
-Copyright © 2004-2013 Barbie for Miss Barbell Productions.
+Copyright © 2004-2014 Barbie for Miss Barbell Productions.
This distribution is free software; you can redistribute it and/or
modify it under the Artistic Licence v2.
@@ -1,6 +1,6 @@
{
"name": "WWW-Scraper-ISBN-ORA_Driver",
- "version": "0.20",
+ "version": "0.21",
"abstract": "Search driver for the O'Reilly & Associates' online catalog",
"author": ["Barbie <barbie@cpan.org>"],
@@ -23,8 +23,8 @@
"requires" : {
"perl": "5.006",
"WWW::Mechanize": "1.60",
- "WWW::Scraper::ISBN": "0.25",
- "WWW::Scraper::ISBN::Driver": "0.18"
+ "WWW::Scraper::ISBN": "1.00",
+ "WWW::Scraper::ISBN::Driver": "1.00"
}
},
"test" : {
@@ -45,7 +45,7 @@
"provides": {
"WWW::Scraper::ISBN::ORA_Driver": {
"file": "lib/WWW/Scraper/ISBN/ORA_Driver.pm",
- "version": "0.20"
+ "version": "0.21"
}
},
"no_index": {
@@ -54,6 +54,11 @@
"resources": {
"license": "http://www.perlfoundation.org/artistic_license_2_0",
- "bugtracker": { "web": "http://rt.cpan.org/Public/Dist/Display.html?Name=WWW-Scraper-ISBN-ORA_Driver" }
+ "bugtracker": { "web": "http://rt.cpan.org/Public/Dist/Display.html?Name=WWW-Scraper-ISBN-ORA_Driver" },
+ "repository": {
+ "url": "git://github.com/barbie/www-scraper-isbn-ora_driver.git",
+ "web": "http://github.com/barbie/www-scraper-isbn-ora_driver",
+ "type": "git"
+ }
}
}
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: WWW-Scraper-ISBN-ORA_Driver
-version: 0.20
+version: 0.21
abstract: Search driver for the O'Reilly & Associates' online catalog
author:
- Barbie <barbie@cpan.org>
@@ -12,8 +12,8 @@ installdirs: site
requires:
perl: 5.006
WWW::Mechanize: 1.60
- WWW::Scraper::ISBN: 0.25
- WWW::Scraper::ISBN::Driver: 0.18
+ WWW::Scraper::ISBN: 1.00
+ WWW::Scraper::ISBN::Driver: 1.00
recommends:
Test::CPAN::Meta: 0
Test::CPAN::Meta::JSON: 0
@@ -27,7 +27,7 @@ build_requires:
provides:
WWW::Scraper::ISBN::ORA_Driver:
file: lib/WWW/Scraper/ISBN/ORA_Driver.pm
- version: 0.20
+ version: 0.21
no_index:
directory:
- t
@@ -36,6 +36,7 @@ no_index:
resources:
license: http://www.perlfoundation.org/artistic_license_2_0
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=WWW-Scraper-ISBN-ORA_Driver
+ repository: http://github.com/barbie/www-scraper-isbn-ora_driver
meta-spec:
version: 1.4
@@ -8,7 +8,7 @@ use ExtUtils::MakeMaker;
WriteMakefile(
AUTHOR => 'Barbie <barbie@cpan.org>',
- NAME => 'WWW::Scraper::ISBN::ORA_Driver',
+ NAME => 'WWW-Scraper-ISBN-ORA_Driver',
VERSION_FROM => 'lib/WWW/Scraper/ISBN/ORA_Driver.pm',
ABSTRACT => q|Search driver for the O'Reilly & Associates' online catalog|,
NO_META => 1,
@@ -16,8 +16,8 @@ WriteMakefile(
# prereqs
'WWW::Mechanize' => '1.60',
- 'WWW::Scraper::ISBN' => '0.25',
- 'WWW::Scraper::ISBN::Driver' => '0.18',
+ 'WWW::Scraper::ISBN' => '1.00',
+ 'WWW::Scraper::ISBN::Driver' => '1.00',
# build/test prereqs
'Data::Dumper' => '0',
@@ -1,5 +1,5 @@
-WWW::Scraper::ISBN::ORA_Driver
-==============================
+WWW-Scraper-ISBN-ORA_Driver
+===========================
This module is a Perl extension for ISBN search collection that is provide by
WWW::Scraper::ISBN.
@@ -40,7 +40,7 @@ For optional testing the module would like these modules:
COPYRIGHT AND LICENSE
- Copyright (C) 2004-2013 Barbie for Miss Barbell Productions
+ Copyright (C) 2004-2014 Barbie for Miss Barbell Productions
This distribution is free software; you can redistribute it and/or
modify it under the Artistic Licence v2.
diff --git a/var/tmp/source/BARBIE/WWW-Scraper-ISBN-ORA_Driver-0.20/WWW-Scraper-ISBN-ORA_Driver-0.20/examples/isbn-check.pl b/var/tmp/source/BARBIE/WWW-Scraper-ISBN-ORA_Driver-0.21/WWW-Scraper-ISBN-ORA_Driver-0.21/examples/isbn-check.pl
old mode 100755
new mode 100644
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION @ISA);
-$VERSION = '0.20';
+$VERSION = '0.21';
#--------------------------------------------------------------------------
@@ -201,7 +201,7 @@ be forthcoming, please feel free to (politely) remind me.
=head1 COPYRIGHT & LICENSE
- Copyright (C) 2004-2012 Barbie for Miss Barbell Productions
+ Copyright (C) 2004-2014 Barbie for Miss Barbell Productions
This distribution is free software; you can redistribute it and/or
modify it under the Artistic Licence v2.
@@ -66,15 +66,12 @@ SKIP: {
my $fail = 0;
my $book = $record->book;
- diag("book=[".$book->{book_link}."]");
for my $test (@{ $tests{$isbn} }) {
- if($test->[0] eq 'ok') { ok( $book->{$test->[1]}, ".. '$test->[1]' found [$isbn]"); }
- elsif($test->[0] eq 'is') { is( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
- elsif($test->[0] eq 'isnt') { isnt( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
- elsif($test->[0] eq 'like') { like( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
- elsif($test->[0] eq 'unlike') { unlike( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
-
- $fail = 1 unless(defined $book->{$test->[1]} || ($test->[0] ne 'ok' && !defined $test->[2]));
+ if($test->[0] eq 'ok') { $fail += ! ok( $book->{$test->[1]}, ".. '$test->[1]' found [$isbn]"); }
+ elsif($test->[0] eq 'is') { $fail += ! is( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
+ elsif($test->[0] eq 'isnt') { $fail += ! isnt( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
+ elsif($test->[0] eq 'like') { $fail += ! like( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
+ elsif($test->[0] eq 'unlike') { $fail += ! unlike( $book->{$test->[1]}, $test->[2], ".. '$test->[1]' found [$isbn]"); }
}
diag("book=[".Dumper($book)."]") if($fail);
@@ -93,7 +90,7 @@ sub pingtest {
eval { system($cmd) };
if($@) { # can't find ping, or wrong arguments?
- diag();
+ diag($@);
return 1;
}
@@ -24,5 +24,13 @@ if($meta->{provides}) {
for my $mod (keys %{$meta->{provides}}) {
is($meta->{provides}{$mod}{version},$version,
"META.yml entry [$mod] version matches");
+
+ eval "require $mod";
+ my $VERSION = '$' . $mod . '::VERSION';
+ my $v = eval "$VERSION";
+ is($meta->{provides}{$mod}{version},$v,
+ "META.json entry [$mod] version matches module version");
+
+ isnt($meta->{provides}{$mod}{version},0);
}
}
@@ -23,6 +23,14 @@ is($meta->{version},$version,
if($meta->{provides}) {
for my $mod (keys %{$meta->{provides}}) {
is($meta->{provides}{$mod}{version},$version,
- "META.json entry [$mod] version matches");
+ "META.json entry [$mod] version matches distribution version");
+
+ eval "require $mod";
+ my $VERSION = '$' . $mod . '::VERSION';
+ my $v = eval "$VERSION";
+ is($meta->{provides}{$mod}{version},$v,
+ "META.json entry [$mod] version matches module version");
+
+ isnt($meta->{provides}{$mod}{version},0);
}
}