r5324 - in /packages/libjson-any-perl/branches/upstream/current:
Changes META.yml README lib/JSON/Any.pm
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Mon Apr 30 13:25:08 UTC 2007
Author: eloy
Date: Mon Apr 30 13:25:07 2007
New Revision: 5324
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5324
Log:
[svn-upgrade] Integrating new upstream version, libjson-any-perl (1.04)
Modified:
packages/libjson-any-perl/branches/upstream/current/Changes
packages/libjson-any-perl/branches/upstream/current/META.yml
packages/libjson-any-perl/branches/upstream/current/README
packages/libjson-any-perl/branches/upstream/current/lib/JSON/Any.pm
Modified: packages/libjson-any-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/branches/upstream/current/Changes?rev=5324&op=diff
==============================================================================
--- packages/libjson-any-perl/branches/upstream/current/Changes (original)
+++ packages/libjson-any-perl/branches/upstream/current/Changes Mon Apr 30 13:25:07 2007
@@ -1,4 +1,7 @@
Revision history for JSON-Any
+
+1.04 Tue Apr 24 12:46:17 EDT 2007
+ o Oops, 1.03 released with a bug in it's object creation.
1.03 Thu Apr 05 15:30:47 EDT 2007
o Oops, 1.02 released with a bug. from the array based object.
Modified: packages/libjson-any-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/branches/upstream/current/META.yml?rev=5324&op=diff
==============================================================================
--- packages/libjson-any-perl/branches/upstream/current/META.yml (original)
+++ packages/libjson-any-perl/branches/upstream/current/META.yml Mon Apr 30 13:25:07 2007
@@ -1,7 +1,7 @@
# 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.03
+version: 1.04
version_from: lib/JSON/Any.pm
installdirs: site
requires:
Modified: packages/libjson-any-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/branches/upstream/current/README?rev=5324&op=diff
==============================================================================
--- packages/libjson-any-perl/branches/upstream/current/README (original)
+++ packages/libjson-any-perl/branches/upstream/current/README Mon Apr 30 13:25:07 2007
@@ -2,7 +2,7 @@
JSON::Any - Wrapper Class for the various JSON classes.
VERSION
- Version 1.01
+ Version 1.04
SYNOPSIS
This module will provide a coherent API to bring together the various
@@ -50,7 +50,7 @@
You may change the order by specifying it on the "use JSON::Any" line:
use JSON::Any qw(DWIW Syck XS JSON);
-
+
Specifying an order that is missing one of the modules will prevent that
module from being used:
@@ -61,40 +61,40 @@
FUNCTIONS
"new"
- Will take any of the parameters for the underlying system and pass them
- through. However these values don't map between JSON modules, so, from a
- portability standpoint this is really only helpful for those paramters
- that happen to have the same name. This will be addressed in a future
- release.
+ Will take any of the parameters for the underlying system and pass
+ them through. However these values don't map between JSON modules,
+ so, from a portability standpoint this is really only helpful for
+ those paramters that happen to have the same name. This will be
+ addressed in a future release.
"handlerType"
- Takes no arguments, returns a string indicating which JSON Module is in
- use.
+ Takes no arguments, returns a string indicating which JSON Module is
+ in use.
"handler"
- Takes no arguments, if called on an object returns the internal JSON::*
- object in use. Otherwise returns the JSON::* package we are using for
- class methods.
+ Takes no arguments, if called on an object returns the internal
+ JSON::* object in use. Otherwise returns the JSON::* package we are
+ using for class methods.
"objToJson"
- Takes a single argument, a hashref to be converted into JSON. It returns
- the JSON text in a scalar.
+ Takes a single argument, a hashref to be converted into JSON. It
+ returns the JSON text in a scalar.
"to_json"
"Dump"
"encode"
- Aliases for objToJson, can be used interchangeably, regardless of the
- underlying JSON module.
+ Aliases for objToJson, can be used interchangeably, regardless of
+ the underlying JSON module.
"jsonToObj"
- Takes a single argument, a string of JSON text to be converted back into
- a hashref.
+ Takes a single argument, a string of JSON text to be converted back
+ into a hashref.
"from_json"
"Load"
"decode"
- Aliases for jsonToObj, can be used interchangeably, regardless of the
- underlying JSON module.
+ Aliases for jsonToObj, can be used interchangeably, regardless of
+ the underlying JSON module.
AUTHOR
Chris Thompson, "<cthom at cpan.org>"
Modified: packages/libjson-any-perl/branches/upstream/current/lib/JSON/Any.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libjson-any-perl/branches/upstream/current/lib/JSON/Any.pm?rev=5324&op=diff
==============================================================================
--- packages/libjson-any-perl/branches/upstream/current/lib/JSON/Any.pm (original)
+++ packages/libjson-any-perl/branches/upstream/current/lib/JSON/Any.pm Mon Apr 30 13:25:07 2007
@@ -1,6 +1,6 @@
##############################################################################
# JSON::Any
-# v1.03
+# v1.04
# Copyright (c) 2007 Chris Thompson
##############################################################################
@@ -115,11 +115,11 @@
=head1 VERSION
-Version 1.03
-
-=cut
-
-our $VERSION = '1.03';
+Version 1.04
+
+=cut
+
+our $VERSION = '1.04';
=head1 SYNOPSIS
@@ -194,7 +194,7 @@
my $self = bless [], $class;
( my $key = lc($handler) ) =~ s/::/_/g;
if ( my $creator = $conf{$key}->{create_object} ) {
- $self->[0] = $creator->(@_);
+ $self->[0] = $creator->({@_});
}
return $self;
}
@@ -249,7 +249,7 @@
my $self = shift;
my $obj = shift;
if ( ref $self ) {
- croak "No $handler Object created!" unless exists $self->{[0]};
+ croak "No $handler Object created!" unless exists $self->[0];
my $method = $self->[0]->can($encoder);
croak "$handler can't execute $encoder" unless $method;
return $self->[0]->$method($obj);
@@ -294,7 +294,7 @@
my $self = shift;
my $obj = shift;
if ( ref $self ) {
- croak "No $handler Object created!" unless exists $self->{[0]};
+ croak "No $handler Object created!" unless exists $self->[0];
my $method = $self->[0]->can($decoder);
croak "$handler can't execute $encoder" unless $method;
return $self->[0]->$method($obj);
More information about the Pkg-perl-cvs-commits
mailing list