r5362 - in /packages/libjson-any-perl/trunk: MANIFEST META.yml README debian/changelog lib/JSON/Any.pm t/04-ENV.t

[eloy at users.alioth.debian.org]

Author: eloy
Date: Wed May  9 12:30:22 2007
New Revision: 5362

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5362
Log:
new upstream version

Added:
    packages/libjson-any-perl/trunk/t/04-ENV.t
      - copied unchanged from r5361, packages/libjson-any-perl/branches/upstream/current/t/04-ENV.t
Modified:
    packages/libjson-any-perl/trunk/MANIFEST
    packages/libjson-any-perl/trunk/META.yml
    packages/libjson-any-perl/trunk/README
    packages/libjson-any-perl/trunk/debian/changelog
    packages/libjson-any-perl/trunk/lib/JSON/Any.pm

Modified: packages/libjson-any-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/trunk/MANIFEST?rev=5362&op=diff
==============================================================================
--- packages/libjson-any-perl/trunk/MANIFEST (original)
+++ packages/libjson-any-perl/trunk/MANIFEST Wed May  9 12:30:22 2007
@@ -7,3 +7,4 @@
 t/00-load.t
 t/pod-coverage.t
 t/pod.t
+t/04-ENV.t

Modified: packages/libjson-any-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/trunk/META.yml?rev=5362&op=diff
==============================================================================
--- packages/libjson-any-perl/trunk/META.yml (original)
+++ packages/libjson-any-perl/trunk/META.yml Wed May  9 12:30:22 2007
@@ -1,11 +1,11 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         JSON-Any
-version:      1.04
+version:      1.05
 version_from: lib/JSON/Any.pm
 installdirs:  site
 requires:
     Test::More:                    0
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30_01

Modified: packages/libjson-any-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/trunk/README?rev=5362&op=diff
==============================================================================
--- packages/libjson-any-perl/trunk/README (original)
+++ packages/libjson-any-perl/trunk/README Wed May  9 12:30:22 2007
@@ -2,7 +2,7 @@
     JSON::Any - Wrapper Class for the various JSON classes.
 
 VERSION
-    Version 1.04
+    Version 1.05
 
 SYNOPSIS
     This module will provide a coherent API to bring together the various

Modified: packages/libjson-any-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/trunk/debian/changelog?rev=5362&op=diff
==============================================================================
--- packages/libjson-any-perl/trunk/debian/changelog (original)
+++ packages/libjson-any-perl/trunk/debian/changelog Wed May  9 12:30:22 2007
@@ -1,3 +1,9 @@
+libjson-any-perl (1.05-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Wed, 09 May 2007 14:29:14 +0200
+
 libjson-any-perl (1.04-1) unstable; urgency=low
 
   * New upstream release

Modified: packages/libjson-any-perl/trunk/lib/JSON/Any.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/trunk/lib/JSON/Any.pm?rev=5362&op=diff
==============================================================================
--- packages/libjson-any-perl/trunk/lib/JSON/Any.pm (original)
+++ packages/libjson-any-perl/trunk/lib/JSON/Any.pm Wed May  9 12:30:22 2007
@@ -1,6 +1,6 @@
 ##############################################################################
 # JSON::Any
-# v1.04
+# v1.05
 # Copyright (c) 2007 Chris Thompson
 ##############################################################################
 
@@ -90,6 +90,7 @@
 
     ( $handler, $encoder, $decoder ) = ();
 
+    @order = split /\s/, $ENV{JSON_ANY_ORDER} unless @order;
     @order = qw(XS JSON DWIW Syck) unless @order;
 
     foreach my $testmod (@order) {
@@ -115,11 +116,11 @@
 
 =head1 VERSION
 
-Version 1.04
-
-=cut
-
-our $VERSION = '1.04';
+Version 1.05
+
+=cut
+
+our $VERSION = '1.05';
 
 =head1 SYNOPSIS
 
@@ -194,7 +195,9 @@
     my $self  = bless [], $class;
     ( my $key = lc($handler) ) =~ s/::/_/g;
     if ( my $creator = $conf{$key}->{create_object} ) {
-        $self->[0] = $creator->({@_});
+        my @config = @_;
+        push @config, map { split /=/, $_  } split /,\s*/, $ENV{JSON_ANY_CONFIG};
+        $self->[0] = $creator->({@config});
     }
     return $self;
 }