@@ -17,9 +17,11 @@ my $builder = Test::Run::Builder->new(
'Devel::CheckOS' => 0,
'File::Find::Object' => '0.1.2',
'Getopt::Long' => '2.36',
- 'JSON' => 0,
+ 'JSON::MaybeXS' => 0,
'List::Util' => 0,
+ 'parent' => 0,
'POSIX' => 0,
+ 'perl' => '5.012',
'strict' => 0,
'warnings' => 0,
},
@@ -1,3 +1,11 @@
+v0.0.10 2015-01-07
+ - Convert from JSON.pm to JSON::MaybeXS which is more recommended.
+
+v0.0.9 2014-01-29
+ - Minimum version of perl is 5.12.x (for CPANTS Kwalitee).
+ - Add a standalone LICENSE file (for CPANTS Kwalitee).
+ - Change from "use base" to "use parent".
+
v0.0.8 2013-05-21
- Convert the Changes (this file) to t/cpan-changes.t.
@@ -0,0 +1,22 @@
+Copyright (c) 2008 Shlomi Fish
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.
@@ -7,6 +7,7 @@ lib/File/Dir/Dumper.pm
lib/File/Dir/Dumper/Scanner.pm
lib/File/Dir/Dumper/Stream/JSON/Reader.pm
lib/File/Dir/Dumper/Stream/JSON/Writer.pm
+LICENSE
MANIFEST
META.yml
README
@@ -4,7 +4,7 @@
"Shlomi Fish <shlomif@cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.3901, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "Module::Build version 0.421",
"keywords" : [
"depth",
"dir",
@@ -53,9 +53,11 @@
"Devel::CheckOS" : "0",
"File::Find::Object" : "v0.1.2",
"Getopt::Long" : "2.36",
- "JSON" : "0",
+ "JSON::MaybeXS" : "0",
"List::Util" : "0",
"POSIX" : "0",
+ "parent" : "0",
+ "perl" : "5.012",
"strict" : "0",
"warnings" : "0"
}
@@ -64,27 +66,27 @@
"provides" : {
"File::Dir::Dumper" : {
"file" : "lib/File/Dir/Dumper.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
},
"File::Dir::Dumper::App" : {
"file" : "lib/File/Dir/Dumper/App.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
},
"File::Dir::Dumper::Base" : {
"file" : "lib/File/Dir/Dumper/Base.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
},
"File::Dir::Dumper::Scanner" : {
"file" : "lib/File/Dir/Dumper/Scanner.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
},
"File::Dir::Dumper::Stream::JSON::Reader" : {
"file" : "lib/File/Dir/Dumper/Stream/JSON/Reader.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
},
"File::Dir::Dumper::Stream::JSON::Writer" : {
"file" : "lib/File/Dir/Dumper/Stream/JSON/Writer.pm",
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
}
},
"release_status" : "stable",
@@ -97,5 +99,5 @@
"url" : "http://bitbucket.org/shlomif/perl-file-dir-dumper"
}
},
- "version" : "v0.0.8"
+ "version" : "v0.0.10"
}
@@ -3,13 +3,13 @@ abstract: "dump directory structures' meta-data in a consistent and"
author:
- 'Shlomi Fish <shlomif@cpan.org>'
build_requires:
- Devel::CheckOS: 0
- IO::String: 0
- Test::More: 0
+ Devel::CheckOS: '0'
+ IO::String: '0'
+ Test::More: '0'
configure_requires:
- Module::Build: 0.36
+ Module::Build: '0.36'
dynamic_config: 1
-generated_by: 'Module::Build version 0.3901, CPAN::Meta::Converter version 2.120921'
+generated_by: 'Module::Build version 0.421, CPAN::Meta::Converter version 2.142060'
keywords:
- depth
- dir
@@ -32,40 +32,42 @@ keywords:
license: mit
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: File-Dir-Dumper
provides:
File::Dir::Dumper:
file: lib/File/Dir/Dumper.pm
- version: v0.0.8
+ version: v0.0.10
File::Dir::Dumper::App:
file: lib/File/Dir/Dumper/App.pm
- version: v0.0.8
+ version: v0.0.10
File::Dir::Dumper::Base:
file: lib/File/Dir/Dumper/Base.pm
- version: v0.0.8
+ version: v0.0.10
File::Dir::Dumper::Scanner:
file: lib/File/Dir/Dumper/Scanner.pm
- version: v0.0.8
+ version: v0.0.10
File::Dir::Dumper::Stream::JSON::Reader:
file: lib/File/Dir/Dumper/Stream/JSON/Reader.pm
- version: v0.0.8
+ version: v0.0.10
File::Dir::Dumper::Stream::JSON::Writer:
file: lib/File/Dir/Dumper/Stream/JSON/Writer.pm
- version: v0.0.8
+ version: v0.0.10
requires:
- Carp: 0
- Class::Accessor: 0
- Devel::CheckOS: 0
+ Carp: '0'
+ Class::Accessor: '0'
+ Devel::CheckOS: '0'
File::Find::Object: v0.1.2
- Getopt::Long: 2.36
- JSON: 0
- List::Util: 0
- POSIX: 0
- strict: 0
- warnings: 0
+ Getopt::Long: '2.36'
+ JSON::MaybeXS: '0'
+ List::Util: '0'
+ POSIX: '0'
+ parent: '0'
+ perl: '5.012'
+ strict: '0'
+ warnings: '0'
resources:
homepage: http://www.shlomifish.org/open-source/projects/File-Dir-Dumper/
license: http://www.opensource.org/licenses/mit-license.php
repository: http://bitbucket.org/shlomif/perl-file-dir-dumper
-version: v0.0.8
+version: v0.0.10
@@ -3,7 +3,9 @@ package File::Dir::Dumper::App;
use warnings;
use strict;
-use base 'File::Dir::Dumper::Base';
+use 5.012;
+
+use parent 'File::Dir::Dumper::Base';
use Carp;
@@ -28,11 +30,11 @@ dumping.
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 SYNOPSIS
@@ -3,7 +3,9 @@ package File::Dir::Dumper::Base;
use warnings;
use strict;
-use base 'Class::Accessor';
+use 5.012;
+
+use parent 'Class::Accessor';
=head1 NAME
@@ -11,11 +13,11 @@ File::Dir::Dumper::Base - base class for File::Dir::Dumper. B<for internal use>
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 METHODS
@@ -3,7 +3,9 @@ package File::Dir::Dumper::Scanner;
use warnings;
use strict;
-use base 'File::Dir::Dumper::Base';
+use 5.012;
+
+use parent 'File::Dir::Dumper::Base';
use Carp;
@@ -32,11 +34,11 @@ hash-refs
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 SYNOPSIS
@@ -3,11 +3,13 @@ package File::Dir::Dumper::Stream::JSON::Reader;
use warnings;
use strict;
-use base 'File::Dir::Dumper::Base';
+use 5.012;
+
+use parent 'File::Dir::Dumper::Base';
use Carp;
-use JSON;
+use JSON::MaybeXS qw(decode_json);
__PACKAGE__->mk_accessors(qw(_in));
@@ -17,11 +19,11 @@ File::Dir::Dumper::Stream::JSON::Reader - reader for stream of JSON objects.
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 SYNOPSIS
@@ -106,7 +108,7 @@ sub fetch
$line = $self->_readline();
if ($line eq "--/f\n")
{
- return from_json($buffer);
+ return decode_json($buffer);
}
else
{
@@ -3,11 +3,13 @@ package File::Dir::Dumper::Stream::JSON::Writer;
use warnings;
use strict;
-use base 'File::Dir::Dumper::Base';
+use 5.012;
+
+use parent 'File::Dir::Dumper::Base';
use Carp;
-use JSON;
+use JSON::MaybeXS ();
__PACKAGE__->mk_accessors(qw(_out));
@@ -17,11 +19,11 @@ File::Dir::Dumper::Stream::JSON::Writer - writer for a stream of JSON data.
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 SYNOPSIS
@@ -93,7 +95,7 @@ sub put
my $self = shift;
my $token = shift;
- $self->_print(to_json($token));
+ $self->_print(JSON::MaybeXS->new(canonical => 1)->encode($token));
$self->_print("--/f");
return;
@@ -3,6 +3,8 @@ package File::Dir::Dumper;
use warnings;
use strict;
+use 5.012;
+
=head1 NAME
File::Dir::Dumper - dump directory structures' meta-data in a consistent and
@@ -10,11 +12,11 @@ machine-readable way.
=head1 VERSION
-Version 0.0.8
+Version 0.0.10
=cut
-our $VERSION = '0.0.8';
+our $VERSION = '0.0.10';
=head1 SYNOPSIS
@@ -8,7 +8,8 @@ use IO::All;
my $tree = File::Find::Object->new({}, 'lib/');
-my $new_version = "0.0.8";
+my $new_version = shift(@ARGV)
+ or die "Usage: perl scripts/bump-version-number.pl 0.0.1";
my $version_re = qr{\d+\.\d+\.\d+};
while (my $r = $tree->next()) {