r35486 - in /branches/upstream/libparams-classify-perl/current: ./ lib/Params/ t/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sat May 16 04:47:38 UTC 2009
Author: ryan52-guest
Date: Sat May 16 04:47:32 2009
New Revision: 35486
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35486
Log:
[svn-upgrade] Integrating new upstream version, libparams-classify-perl (0.007)
Added:
branches/upstream/libparams-classify-perl/current/lib/Params/.cvsignore
branches/upstream/libparams-classify-perl/current/lib/Params/Classify.xs
branches/upstream/libparams-classify-perl/current/t/blessed_pp.t
branches/upstream/libparams-classify-perl/current/t/classify_pp.t
branches/upstream/libparams-classify-perl/current/t/ref_pp.t
branches/upstream/libparams-classify-perl/current/t/setup_pp.pl
Modified:
branches/upstream/libparams-classify-perl/current/Build.PL
branches/upstream/libparams-classify-perl/current/Changes
branches/upstream/libparams-classify-perl/current/MANIFEST
branches/upstream/libparams-classify-perl/current/META.yml
branches/upstream/libparams-classify-perl/current/Makefile.PL
branches/upstream/libparams-classify-perl/current/README
branches/upstream/libparams-classify-perl/current/SIGNATURE
branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
branches/upstream/libparams-classify-perl/current/t/blessed.t
branches/upstream/libparams-classify-perl/current/t/classify.t
branches/upstream/libparams-classify-perl/current/t/ref.t
Modified: branches/upstream/libparams-classify-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/Build.PL?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/Build.PL (original)
+++ branches/upstream/libparams-classify-perl/current/Build.PL Sat May 16 04:47:32 2009
@@ -1,28 +1,62 @@
use warnings;
use strict;
-no strict "subs";
use Module::Build;
-Module::Build->new(
+Module::Build->subclass(code => q{
+ unless(__PACKAGE__->can("cbuilder")) {
+ *cbuilder = sub { $_[0]->_cbuilder or die "no C support" };
+ }
+ unless(__PACKAGE__->can("have_c_compiler")) {
+ *have_c_compiler = sub {
+ my $cb = eval { $_[0]->cbuilder };
+ return $cb && $cb->have_compiler;
+ };
+ }
+ if($Module::Build::VERSION < 0.33) {
+ # Older versions of Module::Build have a bug where if the
+ # cbuilder object is used at Build.PL time (which it will
+ # be for this distribution due to the logic in
+ # ->find_xs_files) then that object can be dumped to the
+ # build_params file, and then at Build time it will
+ # attempt to use the dumped blessed object without loading
+ # the ExtUtils::CBuilder class that is needed to make it
+ # work.
+ *write_config = sub {
+ delete $_[0]->{properties}->{_cbuilder};
+ return $_[0]->SUPER::write_config;
+ };
+ }
+ sub find_xs_files {
+ my($self) = @_;
+ return {} unless $self->have_c_compiler;
+ return $self->SUPER::find_xs_files;
+ }
+})->new(
module_name => "Params::Classify",
license => "perl",
build_requires => {
- Module::Build => 0,
- Test::More => 0,
- perl => "5.006",
- strict => 0,
- warnings => 0,
+ "Module::Build" => 0,
+ "Test::More" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
+ },
+ build_recommends => {
+ "ExtUtils::CBuilder" => "0.15",
},
requires => {
- Exporter => 0,
- Scalar::Util => "1.01",
- base => 0,
- perl => "5.006",
- strict => 0,
- warnings => 0,
+ "Exporter" => 0,
+ "Scalar::Util" => "1.01",
+ "parent" => 0,
+ "perl" => "5.006",
+ "strict" => 0,
+ "warnings" => 0,
},
- dynamic_config => 0,
+ recommends => {
+ "XSLoader" => 0,
+ },
+ dynamic_config => 1,
meta_add => { distribution_type => "module" },
create_makefile_pl => "passthrough",
sign => 1,
Modified: branches/upstream/libparams-classify-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/Changes?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/Changes (original)
+++ branches/upstream/libparams-classify-perl/current/Changes Sat May 16 04:47:32 2009
@@ -1,3 +1,15 @@
+version 0.007; 2009-05-13
+
+ * XS implementation, used if available with fallback to existing pure
+ Perl implementation if XS is not available
+
+ * use simpler "parent" pragma in place of "base"
+
+ * in documentation, use the term "truth value" instead of the less
+ precise "boolean"
+
+ * use full stricture in Build.PL
+
version 0.006; 2009-02-15
* withdraw is_pure_string() and is_pure_number() functions, because
Modified: branches/upstream/libparams-classify-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/MANIFEST?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/MANIFEST (original)
+++ branches/upstream/libparams-classify-perl/current/MANIFEST Sat May 16 04:47:32 2009
@@ -5,10 +5,16 @@
META.yml
Makefile.PL
README
+lib/Params/.cvsignore
lib/Params/Classify.pm
+lib/Params/Classify.xs
t/blessed.t
+t/blessed_pp.t
t/classify.t
+t/classify_pp.t
t/pod_cvg.t
t/pod_syn.t
t/ref.t
+t/ref_pp.t
+t/setup_pp.pl
SIGNATURE Added here by Module::Build
Modified: branches/upstream/libparams-classify-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/META.yml?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/META.yml (original)
+++ branches/upstream/libparams-classify-perl/current/META.yml Sat May 16 04:47:32 2009
@@ -1,14 +1,16 @@
---
name: Params-Classify
-version: 0.006
+version: 0.007
author:
- - "Andrew Main (Zefram) <zefram at fysh.org>"
+ - 'Andrew Main (Zefram) <zefram at fysh.org>'
abstract: argument type classification
license: perl
+resources:
+ license: http://dev.perl.org/licenses/
requires:
Exporter: 0
Scalar::Util: 1.01
- base: 0
+ parent: 0
perl: 5.006
strict: 0
warnings: 0
@@ -18,15 +20,15 @@
perl: 5.006
strict: 0
warnings: 0
-dynamic_config: 0
-generated_by: Module::Build version 0.280801
+recommends:
+ XSLoader: 0
+dynamic_config: 1
+provides:
+ Params::Classify:
+ file: lib/Params/Classify.pm
+ version: 0.007
+generated_by: Module::Build version 0.31012
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
distribution_type: module
-provides:
- Params::Classify:
- file: lib/Params/Classify.pm
- version: 0.006
-resources:
- license: http://dev.perl.org/licenses/
Modified: branches/upstream/libparams-classify-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/Makefile.PL?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/Makefile.PL (original)
+++ branches/upstream/libparams-classify-perl/current/Makefile.PL Sat May 16 04:47:32 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+# Note: this file was auto-generated by Module::Build::Compat version 0.31012
require 5.006;
unless (eval "use Module::Build::Compat 0.02; 1" ) {
@@ -26,7 +26,7 @@
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
-
+ use lib '_build/lib';
Module::Build::Compat->run_build_pl(args => \@ARGV);
- require Module::Build;
- Module::Build::Compat->write_makefile(build_class => 'Module::Build');
+ require MyModuleBuilder;
+ Module::Build::Compat->write_makefile(build_class => 'MyModuleBuilder');
Modified: branches/upstream/libparams-classify-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/README?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/README (original)
+++ branches/upstream/libparams-classify-perl/current/README Sat May 16 04:47:32 2009
@@ -15,6 +15,9 @@
these classification functions, but the reader's attention is drawn
to Params::Validate.
+This module is implemented in XS, with a pure Perl backup version for
+systems that can't handle XS.
+
INSTALLATION
perl Build.PL
@@ -31,6 +34,8 @@
Copyright (C) 2004, 2006, 2007, 2009
Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2009 PhotoBox Ltd
+
LICENSE
This module is free software; you can redistribute it and/or modify it
Modified: branches/upstream/libparams-classify-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/SIGNATURE?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/SIGNATURE (original)
+++ branches/upstream/libparams-classify-perl/current/SIGNATURE Sat May 16 04:47:32 2009
@@ -15,22 +15,28 @@
Hash: SHA1
SHA1 9f070b5a5dcc2d53447a0f43584eb219aa686f66 .cvsignore
-SHA1 3186c77aa9f8cfa6ba2bc4d41101e990fd204ac3 Build.PL
-SHA1 041b640f29e9eb9fc7b43af1d035798b0dcc7810 Changes
-SHA1 22190e0e1c37ac77fabb0eac1f99a965ac743041 MANIFEST
-SHA1 92c22962c7a998ea9af642a321649f1d2544a12b META.yml
-SHA1 6935d4c89ba1946c26e1bdbddc7c16d3929e5f7a Makefile.PL
-SHA1 641e73cbbeb4db0e3998d78ceb342eb51361ca74 README
-SHA1 5cd48bda69269f6a1d092ffb80da481c7920047f lib/Params/Classify.pm
-SHA1 7270f26594ac302ce72f931f180a58a91970b1de t/blessed.t
-SHA1 c8e0bc45a2f38aa9f2900d4e16cddc132a27406a t/classify.t
+SHA1 0738c42ddd325b4256b3a25142d5540fec8a4e66 Build.PL
+SHA1 4cddc45b0523b543c51818aab30cc58780e17664 Changes
+SHA1 c3f70c8a3abee60bc154ec23c87de9ba7181e042 MANIFEST
+SHA1 96a48fdde8e4ad81d1cc9c817ce50053a8af46d7 META.yml
+SHA1 684ab827ae5405876abe203f5a032ffa6b575cf7 Makefile.PL
+SHA1 9a29fb57154f7535c4f1c317029cd7560158931f README
+SHA1 91978573e906c90b93752e0733ef8e875f0d1b89 lib/Params/.cvsignore
+SHA1 697a7e34ae28ceb6989725a90472b21f01246120 lib/Params/Classify.pm
+SHA1 bf3e091d716c051c9dcefd4319bb97d0553e7c52 lib/Params/Classify.xs
+SHA1 4b8cdbbfd1dea667bdd61a8b9621109c68e0dc7a t/blessed.t
+SHA1 a3d9a389510faf3bfecb4860a14813988a0eddcd t/blessed_pp.t
+SHA1 ef874cda555050e9b75701ec602c53504f11383c t/classify.t
+SHA1 22c8bb9af38f3eaa604350884e3fcc9c200b5f1b t/classify_pp.t
SHA1 0e141eecf3ca4903ef38d9413b5403a9ddb0392f t/pod_cvg.t
SHA1 74a957cd8b93f25672ecc6aa578a671d084dd343 t/pod_syn.t
-SHA1 a236b54b674cd606a3ce1d990a96df5a6c4001fc t/ref.t
+SHA1 c7ee1752dd6df93a427b83d47fcf41d7d96a034c t/ref.t
+SHA1 4a19b745e2bcdfb8db18b149e79fcf8c235b24f8 t/ref_pp.t
+SHA1 2159e80bde44de0eac1d90b83b57ae9681876519 t/setup_pp.pl
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAkmYcdMACgkQOV9mt2VyAVGMeQCdFTaf/m5xhkHYyZNEM3bkgFEU
-1vwAn3+AqqJi5/Sv+ZLCkfgvysD1TwZw
-=XkdD
+iEYEARECAAYFAkoLIOwACgkQOV9mt2VyAVEH9ACfcgGO4A8gx7950J84qV9OSANW
+79gAniThbvzkOXLvNR3AKuqr2uwh31gC
+=YQ8W
-----END PGP SIGNATURE-----
Added: branches/upstream/libparams-classify-perl/current/lib/Params/.cvsignore
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/lib/Params/.cvsignore?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/lib/Params/.cvsignore (added)
+++ branches/upstream/libparams-classify-perl/current/lib/Params/.cvsignore Sat May 16 04:47:32 2009
@@ -1,0 +1,1 @@
+Classify.c
Modified: branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm (original)
+++ branches/upstream/libparams-classify-perl/current/lib/Params/Classify.pm Sat May 16 04:47:32 2009
@@ -44,6 +44,9 @@
these classification functions, but the reader's attention is drawn
to L<Params::Validate>.
+This module is implemented in XS, with a pure Perl backup version for
+systems that can't handle XS.
+
=cut
package Params::Classify;
@@ -51,11 +54,9 @@
use warnings;
use strict;
-use Scalar::Util 1.01 qw(blessed reftype);
-
-our $VERSION = "0.006";
-
-use base "Exporter";
+our $VERSION = "0.007";
+
+use parent "Exporter";
our @EXPORT_OK = qw(
scalar_class
is_undef
@@ -65,6 +66,39 @@
is_blessed blessed_class is_strictly_blessed is_able
);
+eval { local $SIG{__DIE__};
+ require XSLoader;
+ XSLoader::load(__PACKAGE__, $VERSION);
+};
+
+if($@ eq "") {
+ close(DATA);
+ *is_number = sub($) {
+ return 0 unless &is_string;
+ my($arg) = @_;
+ my $warned;
+ local $SIG{__WARN__} = sub { $warned = 1; };
+ { no warnings "void"; 0 + $arg; }
+ return !$warned;
+ };
+} else {
+ (my $filename = __FILE__) =~ tr# -~##cd;
+ local $/ = undef;
+ my $pp_code = "#line 99 \"$filename\"\n".<DATA>;
+ close(DATA);
+ {
+ local $SIG{__DIE__};
+ eval $pp_code;
+ }
+ die $@ if $@ ne "";
+}
+
+1;
+
+__DATA__
+
+use Scalar::Util 1.01 qw(blessed reftype);
+
=head1 TYPE CLASSIFICATION
This module divides up scalar values into the following classes:
@@ -106,7 +140,7 @@
Each of these functions takes one scalar argument to be tested, possibly
with other arguments specifying details of the test. Any scalar value is
acceptable for the argument to be tested (called ARG below). Each "is_"
-function returns a simple boolean result.
+function returns a simple truth value result.
=head2 Classification
@@ -409,6 +443,8 @@
Copyright (C) 2004, 2006, 2007, 2009
Andrew Main (Zefram) <zefram at fysh.org>
+Copyright (C) 2009 PhotoBox Ltd
+
=head1 LICENSE
This module is free software; you can redistribute it and/or modify it
Added: branches/upstream/libparams-classify-perl/current/lib/Params/Classify.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/lib/Params/Classify.xs?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/lib/Params/Classify.xs (added)
+++ branches/upstream/libparams-classify-perl/current/lib/Params/Classify.xs Sat May 16 04:47:32 2009
@@ -1,0 +1,216 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#ifndef HvNAME_get
+# define HvNAME_get(hv) HvNAME(hv)
+#endif
+
+#define sv_is_string(sv) \
+ (SvTYPE(sv) != SVt_PVGV && \
+ (SvFLAGS(sv) & (SVf_IOK|SVf_NOK|SVf_POK|SVp_IOK|SVp_NOK|SVp_POK)))
+
+const char *
+ref_type(SV *referent)
+{
+ switch(SvTYPE(referent)) {
+ case SVt_NULL: case SVt_IV: case SVt_NV: case SVt_RV:
+ case SVt_PV: case SVt_PVIV: case SVt_PVNV:
+ case SVt_PVMG: case SVt_PVLV: case SVt_PVGV:
+ return "SCALAR";
+ case SVt_PVAV: return "ARRAY";
+ case SVt_PVHV: return "HASH";
+ case SVt_PVCV: return "CODE";
+ case SVt_PVFM: return "FORMAT";
+ case SVt_PVIO: return "IO";
+ default: croak("unknown SvTYPE, please update me");
+ }
+}
+
+const char *
+blessed_class(SV *referent)
+{
+ HV *stash = SvSTASH(referent);
+ const char *name = HvNAME_get(stash);
+ return name ? name : "__ANON__";
+}
+
+bool
+call_bool_method(SV *objref, const char *methodname, SV *arg)
+{
+ dSP;
+ int retcount;
+ SV *ret;
+ bool retval;
+ ENTER;
+ SAVETMPS;
+ PUSHMARK(SP);
+ XPUSHs(objref);
+ XPUSHs(arg);
+ PUTBACK;
+ retcount = call_method(methodname, G_SCALAR);
+ SPAGAIN;
+ if(retcount != 1) croak("call_method misbehaving");
+ ret = POPs;
+ retval = !!SvTRUE(ret);
+ PUTBACK;
+ FREETMPS;
+ LEAVE;
+ return retval;
+}
+
+MODULE = Params::Classify PACKAGE = Params::Classify
+
+char *
+scalar_class(SV *arg)
+PROTOTYPE: $
+CODE:
+ if(SvTYPE(arg) == SVt_PVGV) {
+ RETVAL = "GLOB";
+ } else if(!SvOK(arg)) {
+ RETVAL = "UNDEF";
+ } else if(SvROK(arg)) {
+ RETVAL = SvOBJECT(SvRV(arg)) ? "BLESSED" : "REF";
+ } else {
+ RETVAL = "STRING";
+ }
+OUTPUT:
+ RETVAL
+
+bool
+is_undef(SV *arg)
+PROTOTYPE: $
+CODE:
+ RETVAL = SvTYPE(arg) != SVt_PVGV && !SvOK(arg);
+OUTPUT:
+ RETVAL
+
+bool
+is_string(SV *arg)
+PROTOTYPE: $
+CODE:
+ RETVAL = sv_is_string(arg);
+OUTPUT:
+ RETVAL
+
+bool
+is_glob(SV *arg)
+PROTOTYPE: $
+CODE:
+ RETVAL = SvTYPE(arg) == SVt_PVGV;
+OUTPUT:
+ RETVAL
+
+bool
+is_ref(SV *arg, SV *type = 0)
+PROTOTYPE: $;$
+CODE:
+ if(type && !sv_is_string(type))
+ croak("type argument must be a string");
+ if(!SvROK(arg) || SvOBJECT(SvRV(arg))) {
+ RETVAL = 0;
+ } else if(type) {
+ char const *actual_type = ref_type(SvRV(arg));
+ char const *check_type;
+ STRLEN check_len;
+ check_type = SvPV(type, check_len);
+ RETVAL = check_len == strlen(actual_type) &&
+ !strcmp(check_type, actual_type);
+ } else {
+ RETVAL = 1;
+ }
+OUTPUT:
+ RETVAL
+
+char *
+ref_type(SV *arg)
+PROTOTYPE: $
+CODE:
+ if(!SvROK(arg) || SvOBJECT(SvRV(arg))) {
+ RETVAL = 0;
+ } else {
+ RETVAL = (char *)ref_type(SvRV(arg));
+ }
+OUTPUT:
+ RETVAL
+
+bool
+is_blessed(SV *arg, SV *class = 0)
+PROTOTYPE: $;$
+CODE:
+ if(class && !sv_is_string(class))
+ croak("class argument must be a string");
+ if(!SvROK(arg) || !SvOBJECT(SvRV(arg))) {
+ RETVAL = 0;
+ } else if(class) {
+ PUTBACK;
+ RETVAL = call_bool_method(arg, "isa", class);
+ SPAGAIN;
+ } else {
+ RETVAL = 1;
+ }
+OUTPUT:
+ RETVAL
+
+char *
+blessed_class(SV *arg)
+PROTOTYPE: $
+CODE:
+ if(!SvROK(arg) || !SvOBJECT(SvRV(arg))) {
+ RETVAL = 0;
+ } else {
+ RETVAL = (char *)blessed_class(SvRV(arg));
+ }
+OUTPUT:
+ RETVAL
+
+bool
+is_strictly_blessed(SV *arg, SV *class = 0)
+PROTOTYPE: $;$
+CODE:
+ if(class && !sv_is_string(class))
+ croak("class argument must be a string");
+ if(!SvROK(arg) || !SvOBJECT(SvRV(arg))) {
+ RETVAL = 0;
+ } else if(class) {
+ char const *actual_class = blessed_class(SvRV(arg));
+ char const *check_class;
+ STRLEN check_len;
+ check_class = SvPV(class, check_len);
+ RETVAL = check_len == strlen(actual_class) &&
+ !strcmp(check_class, actual_class);
+ } else {
+ RETVAL = 1;
+ }
+OUTPUT:
+ RETVAL
+
+bool
+is_able(SV *arg, SV *methods)
+PROTOTYPE: $$
+CODE:
+ RETVAL = 0;
+ PUTBACK;
+ if(!SvROK(arg) || !SvOBJECT(SvRV(arg))) goto out;
+ if(sv_is_string(methods)) {
+ if(!call_bool_method(arg, "can", methods)) goto out;
+ } else {
+ AV *methods_av;
+ I32 alen, pos;
+ if(!SvROK(methods) || SvOBJECT(SvRV(methods)) ||
+ SvTYPE(SvRV(methods)) != SVt_PVAV)
+ croak("methods argument must be a string or array");
+ methods_av = (AV*)SvRV(methods);
+ alen = av_len(methods_av);
+ for(pos = 0; pos <= alen; pos++) {
+ SV **m_ptr = av_fetch(methods_av, pos, 0);
+ if(!m_ptr || !sv_is_string(*m_ptr))
+ croak("method name must be a string");
+ if(!call_bool_method(arg, "can", *m_ptr)) goto out;
+ }
+ }
+ RETVAL = 1;
+ out:
+ SPAGAIN;
+OUTPUT:
+ RETVAL
Modified: branches/upstream/libparams-classify-perl/current/t/blessed.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/blessed.t?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/blessed.t (original)
+++ branches/upstream/libparams-classify-perl/current/t/blessed.t Sat May 16 04:47:32 2009
@@ -37,3 +37,5 @@
test_blessed(bless({}, "main"), "main", 1, 1, 0, 0, 0, 0, 1, 1, 0, 0);
test_blessed(bless({}, "A"), "A", 1, 1, 0, 2, 0, 0, 1, 1, 0, 1);
test_blessed(bless({}, "B"), "B", 1, 1, 0, 1, 2, 0, 1, 1, 0, 1);
+
+1;
Added: branches/upstream/libparams-classify-perl/current/t/blessed_pp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/blessed_pp.t?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/blessed_pp.t (added)
+++ branches/upstream/libparams-classify-perl/current/t/blessed_pp.t Sat May 16 04:47:32 2009
@@ -1,0 +1,7 @@
+use warnings;
+use strict;
+
+do "t/setup_pp.pl" or die $@ || $!;
+do "t/blessed.t" or die $@ || $!;
+
+1;
Modified: branches/upstream/libparams-classify-perl/current/t/classify.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/classify.t?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/classify.t (original)
+++ branches/upstream/libparams-classify-perl/current/t/classify.t Sat May 16 04:47:32 2009
@@ -28,3 +28,5 @@
test_scalar_classification(*STDOUT, "GLOB", 0, 0, 0, 1, 0, 0);
test_scalar_classification({}, "REF", 0, 0, 0, 0, 1, 0);
test_scalar_classification(bless({}, "main"), "BLESSED", 0, 0, 0, 0, 0, 1);
+
+1;
Added: branches/upstream/libparams-classify-perl/current/t/classify_pp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/classify_pp.t?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/classify_pp.t (added)
+++ branches/upstream/libparams-classify-perl/current/t/classify_pp.t Sat May 16 04:47:32 2009
@@ -1,0 +1,7 @@
+use warnings;
+use strict;
+
+do "t/setup_pp.pl" or die $@ || $!;
+do "t/classify.t" or die $@ || $!;
+
+1;
Modified: branches/upstream/libparams-classify-perl/current/t/ref.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/ref.t?rev=35486&op=diff
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/ref.t (original)
+++ branches/upstream/libparams-classify-perl/current/t/ref.t Sat May 16 04:47:32 2009
@@ -35,3 +35,5 @@
skip "this Perl doesn't do *foo{FORMAT}", 9 unless defined $format;
test_ref_type($format, "FORMAT");
}
+
+1;
Added: branches/upstream/libparams-classify-perl/current/t/ref_pp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/ref_pp.t?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/ref_pp.t (added)
+++ branches/upstream/libparams-classify-perl/current/t/ref_pp.t Sat May 16 04:47:32 2009
@@ -1,0 +1,7 @@
+use warnings;
+use strict;
+
+do "t/setup_pp.pl" or die $@ || $!;
+do "t/ref.t" or die $@ || $!;
+
+1;
Added: branches/upstream/libparams-classify-perl/current/t/setup_pp.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparams-classify-perl/current/t/setup_pp.pl?rev=35486&op=file
==============================================================================
--- branches/upstream/libparams-classify-perl/current/t/setup_pp.pl (added)
+++ branches/upstream/libparams-classify-perl/current/t/setup_pp.pl Sat May 16 04:47:32 2009
@@ -1,0 +1,11 @@
+require XSLoader;
+
+my $orig_load = \&XSLoader::load;
+no warnings "redefine";
+*XSLoader::load = sub {
+ die "XS loading disabled for Params::Classify"
+ if $_[0] eq "Params::Classify";
+ goto &$orig_load;
+};
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list