r43287 - in /trunk/libarray-compare-perl: Build.PL Changes META.yml Makefile.PL debian/changelog debian/compat debian/control debian/copyright debian/rules lib/Array/Compare.pm
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Sun Aug 30 04:04:25 UTC 2009
Author: nhandler-guest
Date: Sun Aug 30 04:04:18 2009
New Revision: 43287
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43287
Log:
* New upstream release
* debian/control:
- Add myself to list of Uploaders
- Bump Standards-Version to 3.8.3 (no changes)
- Bump debhelper Build-Depends to >= 7
- Modify short description
- Add libmoose-perl to Build-Depends-Indep
* debian/rules:
- Switch to short format
* debian/compat:
- Bump to 7
* debian/copyright:
- Switch to newer format
- Add myself to debian/* copyright
Modified:
trunk/libarray-compare-perl/Build.PL
trunk/libarray-compare-perl/Changes
trunk/libarray-compare-perl/META.yml
trunk/libarray-compare-perl/Makefile.PL
trunk/libarray-compare-perl/debian/changelog
trunk/libarray-compare-perl/debian/compat
trunk/libarray-compare-perl/debian/control
trunk/libarray-compare-perl/debian/copyright
trunk/libarray-compare-perl/debian/rules
trunk/libarray-compare-perl/lib/Array/Compare.pm
Modified: trunk/libarray-compare-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/Build.PL?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/Build.PL (original)
+++ trunk/libarray-compare-perl/Build.PL Sun Aug 30 04:04:18 2009
@@ -1,11 +1,11 @@
use Module::Build;
my $build = Module::Build->new(
- dist_version => '1.17',
module_name => 'Array::Compare',
license => 'perl',
requires => {
- perl => '5.6.0',
- Carp => 0,
+ perl => '5.6.0',
+ Carp => 0,
+ Moose => 0,
},
build_recommends => {
Test::Pod => 0,
Modified: trunk/libarray-compare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/Changes?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/Changes (original)
+++ trunk/libarray-compare-perl/Changes Sun Aug 30 04:04:18 2009
@@ -1,68 +1,227 @@
-2007-04-01 dave
-
- * [r23] README.xml: Updated copyright dates
- * [r22] lib/Array/Compare.pm: Changed $VERSION definition
- * [r21] Build.PL: Changed create_makefile_pl parameter to
- 'traditional'
-
-2005-10-01 dave
-
- * [r19] MANIFEST: Reordering
-
-2005-09-21 dave
-
- * [r18] lib/Array/Compare.pm: Documentation fix
-
-2005-07-10 dave
-
- * [r17] MANIFEST: Added t/pod_coverage to MANIFEST
- * [r16] Makefile.PL: Removed Makefile.PL (which is autogenerated)
-
-2005-03-01 dave
-
- * [r15] lib/Array/Compare.pm, t/pod_coverage.t: Changes to pass
- Pod::Coverage tests (and, hence, increase kwalitee)
-
-2004-10-23 dave
-
- * [r14] lib/Array/Compare.pm, t/test.t: Improved test coverage
-
-2004-10-22 dave
-
- * [r13] lib/Array/Compare.pm: Improved docs for full comparison
- * [r12] t/pod.t: Updated pod tests
-
-2004-05-13 dave
-
- * [r11] README.xml: Small formatting changes
-
-2004-05-12 dave
-
- * [r10] Makefile.PL: Added Makefile.PL
- * [r9] MANIFEST, t, t/pod.t, t/test.t: Added various files to cvs
-
-2003-09-19 dave
-
- * [r8] lib/Array/Compare.pm: Bring CVS version into line with old
- file
- * [r7] Build.PL, Compare.pm, README.xml, lib, lib/Array,
- lib/Array/Compare.pm, test.pl: Bit of an overhaul
-
-2002-03-29 dave
-
- * [r6] Compare.pm: Test version
- * [r5] README.xml: README input file
- * [r4] test.pl: Test script.
-
-2002-01-09 dave
-
- * [r3] Compare.pm: Small cleanups
-
-2001-12-09 dave
-
- * [r2] Compare.pm: Cleanup.
-
-2001-12-09
-
- * [r1] branches, tags, .: New repository initialized by cvs2svn.
-
+2009-08-29 16:05 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Bump version number.
+
+ * commit a262ffcf9c4cde040daef8bf78557422fa28eec7
+
+2009-08-09 20:03 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Corrected version number.
+
+ * commit a985589668e20aa48ffca58a3455c4a27e02a479
+
+2009-08-09 20:00 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL: Bumped version number.
+
+ * commit 25853dd748932025ea2d6b32ae7137c802b666aa
+
+2009-08-09 20:00 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Switched to using Moose.
+
+ * commit 220f0589377b338193ede53e0e9ddfdc611a4598
+
+2009-06-14 20:11 Dave Cross <dave at dave.org.uk>
+
+ * README, README.xml: Renames README.xml
+
+ * commit 3f25ef126d877b1a8eac207aa0512367751ad761
+
+2009-06-14 18:58 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Bump version number for release.
+
+ * commit 4a288d2dd0665ab83acd16b21d27c0ad20b69cea
+
+2009-06-14 18:56 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Added version number. Fixed
+ https://rt.cpan.org/Ticket/Display.html?id=45145
+
+ * commit 58ace450d5987b9e5d7a215a9244ebf8fac57665
+
+2009-06-14 18:55 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL: Moved version setting into .pm.
+
+ * commit ffcdc2f227ba7f60b91c8c188a786c3efd94d1df
+
+2009-02-21 22:08 Dave Cross <dave at dave.org.uk>
+
+ * : Removed execute bit.
+
+ * commit d146a1ff737ca7791cbb83d76102a703d08faf6f
+
+2008-06-29 14:04 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL, lib/Array/Compare.pm: Added LICENSE section (for
+ cpants).
+
+ * commit f41bdfdae903930248bdae698de707486b50e7ab
+
+2008-03-06 22:04 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Increment version number
+
+ * commit 145352201851bf61af94bdfd40772d9cc96dba20
+
+2008-03-06 22:04 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL: Fix prerequisites
+
+ * commit d06f5a3ff78dd9aa63e974c5df806a317c751c0c
+
+2008-03-06 22:03 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Require Perl 5.6 so we can use warnings
+ and our.
+
+ * commit c8690e96063f6707b99896f8b142396c7172185a
+
+2007-04-04 06:16 Dave Cross <dave at dave.org.uk>
+
+ * : Another attempt at removing the execute bit
+
+ * commit 9661677cb4856827f389acd006f7095c838947cf
+
+2007-04-02 07:26 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL: Made Build.PL non-executable
+
+ * commit 4690bb3f33328db22566615e1c2856689a065fce
+
+2007-04-01 15:11 Dave Cross <dave at dave.org.uk>
+
+ * README.xml: Updated copyright dates
+
+ * commit 32f9b57d8f33dd0c57440f4d28f485f252efb290
+
+2007-04-01 15:03 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Changed $VERSION definition
+
+ * commit 96d68069be6399cbd1b2015a2c1116553741a206
+
+2007-04-01 14:55 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL: Changed create_makefile_pl parameter to 'traditional'
+
+ * commit cf040034db4a784e134bbea56f1dedee7fb8f999
+
+2005-10-01 17:17 Dave Cross <dave at dave.org.uk>
+
+ * MANIFEST: Reordering
+
+ * commit 76195c6b17f45fa0e7850ccb14796df7f5b77cb4
+
+2005-09-21 09:23 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Documentation fix
+
+ * commit 80714622168b2f16d29d5ef7c0d2a591964c4790
+
+2005-07-10 12:33 Dave Cross <dave at dave.org.uk>
+
+ * MANIFEST: Added t/pod_coverage to MANIFEST
+
+ * commit c28ff1c2763ebb0d97af1f058e1e8ca439c93a51
+
+2005-07-10 12:33 Dave Cross <dave at dave.org.uk>
+
+ * Makefile.PL: Removed Makefile.PL (which is autogenerated)
+
+ * commit afddc5de0dab39e06ce5090c9d8fa39da07c72fd
+
+2005-03-01 09:05 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm, t/pod_coverage.t: Changes to pass
+ Pod::Coverage tests (and, hence, increase kwalitee)
+
+ * commit c9d84347353406b5863a9a7e35d876b63c64f9ef
+
+2004-10-23 08:11 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm, t/test.t: Improved test coverage
+
+ * commit a48e05ce7aed91cda36390e31364c9a37e0a5f02
+
+2004-10-22 20:32 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Improved docs for full comparison
+
+ * commit 612b14b51e6fc4c9db74d8eb4536c45358c12fef
+
+2004-10-22 20:17 Dave Cross <dave at dave.org.uk>
+
+ * t/pod.t: Updated pod tests
+
+ * commit 1eed7b71d50037dc0898f00c227a8a825b7e03f0
+
+2004-05-13 20:01 Dave Cross <dave at dave.org.uk>
+
+ * README.xml: Small formatting changes
+
+ * commit 250b1f35ec93c2dc82beb416ae2c0b13ec8f52ad
+
+2004-05-12 22:52 Dave Cross <dave at dave.org.uk>
+
+ * Makefile.PL: Added Makefile.PL
+
+ * commit de64fdee81cf0c36d56b461ff87bc6e8192ba7b7
+
+2004-05-12 22:49 Dave Cross <dave at dave.org.uk>
+
+ * MANIFEST, t/pod.t, t/test.t: Added various files to cvs
+
+ * commit 7b65234160e57a10deb8372a2d9a35e4f7652e4f
+
+2003-09-19 09:37 Dave Cross <dave at dave.org.uk>
+
+ * lib/Array/Compare.pm: Bring CVS version into line with old file
+
+ * commit 47074ab42920d95b30ee18c53eaaaeb1c8e0f63c
+
+2003-09-19 09:34 Dave Cross <dave at dave.org.uk>
+
+ * Build.PL, Compare.pm, README.xml, lib/Array/Compare.pm, test.pl:
+ Bit of an overhaul
+
+ * commit f67f37c0d05b38d45b29601da9fa09b5dd507005
+
+2002-03-29 17:45 Dave Cross <dave at dave.org.uk>
+
+ * Compare.pm: Test version
+
+ * commit ecefb3dc62940bf64e84186bd999486173223448
+
+2002-03-29 17:44 Dave Cross <dave at dave.org.uk>
+
+ * README.xml: README input file
+
+ * commit cb67625e1246ec65d64e060fd7e3ca8dafdf39d8
+
+2002-03-29 17:43 Dave Cross <dave at dave.org.uk>
+
+ * test.pl: Test script.
+
+ * commit 5f7b15b567d343e4176f0b7d90d1508da793ee79
+
+2002-01-09 11:41 Dave Cross <dave at dave.org.uk>
+
+ * Compare.pm: Small cleanups
+
+ * commit 1eb540f3c64cbbb807444e18c0476c5531ef412c
+
+2001-12-09 19:31 Dave Cross <dave at dave.org.uk>
+
+ * Compare.pm: Cleanup.
+
+ * commit 475fbeab7abcda9696b5b2db3d8673ab407e8304
+
+2001-12-09 19:31 (no author) <(no author)>
+
+ * : New repository initialized by cvs2svn.
+
+ * commit 2e57c5d3db773149fcbd659e568cc46c9993303c
+
Modified: trunk/libarray-compare-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/META.yml?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/META.yml (original)
+++ trunk/libarray-compare-perl/META.yml Sun Aug 30 04:04:18 2009
@@ -1,6 +1,6 @@
---
name: Array-Compare
-version: 1.17
+version: 2.01
author:
- 'Dave Cross <dave at mag-sol.com>'
abstract: Perl extension for comparing arrays.
@@ -9,12 +9,13 @@
license: http://dev.perl.org/licenses/
requires:
Carp: 0
+ Moose: 0
perl: 5.6.0
provides:
Array::Compare:
file: lib/Array/Compare.pm
- version: 33
-generated_by: Module::Build version 0.280801
+ version: 2.01
+generated_by: Module::Build version 0.32
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: trunk/libarray-compare-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/Makefile.PL?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/Makefile.PL (original)
+++ trunk/libarray-compare-perl/Makefile.PL Sun Aug 30 04:04:18 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.32
require 5.6.0;
use ExtUtils::MakeMaker;
WriteMakefile
@@ -6,10 +6,10 @@
'NAME' => 'Array::Compare',
'VERSION_FROM' => 'lib/Array/Compare.pm',
'PREREQ_PM' => {
- 'Carp' => 0
+ 'Carp' => 0,
+ 'Moose' => 0
},
'INSTALLDIRS' => 'site',
- 'EXE_FILES' => [],
- 'PL_FILES' => {}
+ 'EXE_FILES' => []
)
;
Modified: trunk/libarray-compare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/debian/changelog?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/debian/changelog (original)
+++ trunk/libarray-compare-perl/debian/changelog Sun Aug 30 04:04:18 2009
@@ -1,14 +1,28 @@
-libarray-compare-perl (1.17-1) UNRELEASED; urgency=low
+libarray-compare-perl (2.01-1) unstable; urgency=low
- IGNORE-VERSION: 1.17-1
- # only changes to Makefile.PL and version numbers. -- ansgar
-
+ [ gregor herrmann ]
* debian/control: fix the typo in Gunnar's email address.
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
* debian/control: Added: ${misc:Depends} to Depends: field.
- -- gregor herrmann <gregoa at debian.org> Fri, 01 Aug 2008 02:41:50 +0200
+ [ Nathan Handler ]
+ * New upstream release
+ * debian/control:
+ - Add myself to list of Uploaders
+ - Bump Standards-Version to 3.8.3 (no changes)
+ - Bump debhelper Build-Depends to >= 7
+ - Modify short description
+ - Add libmoose-perl to Build-Depends-Indep
+ * debian/rules:
+ - Switch to short format
+ * debian/compat:
+ - Bump to 7
+ * debian/copyright:
+ - Switch to newer format
+ - Add myself to debian/* copyright
+
+ -- Nathan Handler <nhandler at ubuntu.com> Sun, 30 Aug 2009 03:56:04 +0000
libarray-compare-perl (1.16-1) unstable; urgency=low
Modified: trunk/libarray-compare-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/debian/compat?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/debian/compat (original)
+++ trunk/libarray-compare-perl/debian/compat Sun Aug 30 04:04:18 2009
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libarray-compare-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/debian/control?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/debian/control (original)
+++ trunk/libarray-compare-perl/debian/control Sun Aug 30 04:04:18 2009
@@ -3,11 +3,11 @@
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jay Bonci <jaybonci at debian.org>, Damyan Ivanov <dmn at debian.org>,
- Gunnar Wolf <gwolf at debian.org>
-Build-Depends: debhelper (>= 5),
+ Gunnar Wolf <gwolf at debian.org>, Nathan Handler <nhandler at ubuntu.com>
+Build-Depends: debhelper (>= 7),
Build-Depends-Indep: libmodule-build-perl, libtest-pod-perl,
- libtest-pod-coverage-perl
-Standards-Version: 3.8.0
+ libtest-pod-coverage-perl, libmoose-perl
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Array-Compare/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libarray-compare-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libarray-compare-perl/
@@ -15,7 +15,7 @@
Package: libarray-compare-perl
Architecture: all
Depends: ${misc:Depends}, ${perl:Depends}
-Description: Array::Compare - easily compare arrays
+Description: Perl module to easily compare arrays
Array::Compare can easily compare two arrays, in a variety
of flexible ways, such as whitespace-ignorant, case-insensitive,
and with certain elements skipped.
Modified: trunk/libarray-compare-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/debian/copyright?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/debian/copyright (original)
+++ trunk/libarray-compare-perl/debian/copyright Sun Aug 30 04:04:18 2009
@@ -1,16 +1,32 @@
-This package was debianized by Jay Bonci <jaybonci at debian.org> on
-Tue, 11 Nov 2003 15:54:32 -0500.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Dave Cross <dave at mag-sol.com>
+Upstream-Source: http://search.cpan.org/dist/Array::Compare/
+Upstream-Name: Array-Compare
-It was downloaded from http://search.cpan.org/dist/Array-Compare/
+Files: *
+Copyright: 2003-2007, Magnum Solutions Ltd.
+License-Alias: Perl
+License: Artistic | GPL-1+
-Upstream Author: Dave Cross <dave at mag-sol.com>
+Files: debian/*
+Copyright: 2003-2005, Jay Bonci <jaybonci at debian.org>
+ 2007-2008, Damyan Ivanov <dmn at debian.org>
+ 2009, Nathan Handler <nhandler at ubuntu.com>
+License: Artistic | GPL-1+
+X-Comment: It is assumed that package maintainers have licensed their work
+ under terms compatible with upstream licensing terms.
-Copyright (C) 2003-7, Magnum Solutions Ltd. All Rights Reserved.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in /usr/share/common-licenses/Artistic
-This module is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License. On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libarray-compare-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/debian/rules?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/debian/rules (original)
+++ trunk/libarray-compare-perl/debian/rules Sun Aug 30 04:04:18 2009
@@ -1,56 +1,4 @@
#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# This is the debhelper compatibility version to use.
-#export DH_COMPAT=4
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-build: build-stamp
-build-stamp:
- dh_testdir
- # Add here commands to compile the package.
- $(PERL) Build.PL installdirs=vendor create_packlist=0
- ./Build
- ./Build test
- touch $@
-
-clean:
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Build ] || ./Build distclean
-
-install: install-stamp
-install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- ./Build install destdir=$(CURDIR)/debian/$(PACKAGE)
- #[ ! -d $(CURDIR)/debian/$(PACKAGE)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(CURDIR)/debian/$(PACKAGE)/usr/lib/perl5
- touch $@
-
-binary-arch:;
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installchangelogs Changes
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_perl
- dh_gencontrol
- dh_md5sums
- dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure
+%:
+ dh $@
Modified: trunk/libarray-compare-perl/lib/Array/Compare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libarray-compare-perl/lib/Array/Compare.pm?rev=43287&op=diff
==============================================================================
--- trunk/libarray-compare-perl/lib/Array/Compare.pm (original)
+++ trunk/libarray-compare-perl/lib/Array/Compare.pm Sun Aug 30 04:04:18 2009
@@ -1,5 +1,5 @@
#
-# $Id: Compare.pm 33 2008-12-18 11:34:24Z dave $
+# $Id$
#
=head1 NAME
@@ -183,15 +183,16 @@
use warnings;
our ($VERSION, $AUTOLOAD);
+use Moose;
use Carp;
-($VERSION) = '$Id: Compare.pm 33 2008-12-18 11:34:24Z dave $' =~ /(\d+)/;
-
-my %_defaults = (Sep => '^G',
- WhiteSpace => 1,
- Case => 1,
- Skip => {},
- DefFull => 0);
+$VERSION = '2.01';
+
+has Sep => ( is => 'rw', isa => 'Str', default => '^G' );
+has WhiteSpace => ( is => 'rw', isa => 'Bool', default => 1 );
+has Case => ( is => 'rw', isa => 'Bool', default => 1 );
+has DefFull => ( is => 'rw', isa => 'Bool', default => 0 );
+has Skip => ( is => 'rw', isa => 'HashRef', default => sub { {} } );
=head2 new [ %OPTIONS ]
@@ -236,16 +237,6 @@
=back
=cut
-
-sub new {
- my $class = shift;
-
- my $self = {%_defaults, @_};
-
- bless $self, $class;
-
- return $self;
-}
#
# Utility function to check the arguments to any of the comparison
@@ -325,6 +316,7 @@
my @check = 0 .. $#$row1;
my ($pkg, $caller) = (caller(1))[0, 3];
+ $caller = '' unless defined $caller;
my $perm = $caller eq __PACKAGE__ . "::perm";
# Filter @check so it only contains indexes that should be compared.
@@ -448,41 +440,8 @@
return $self->simple_compare([sort @{$_[0]}], [sort @{$_[1]}]);
}
-#
-# Attempt to be clever with object attributes.
-# Each object attribute is always accessed using an access method.
-# None of these access methods exist in the object code.
-# If an unknown method is called then the AUTOLOAD method is called
-# in its place with the same parameters and the variable $AUTOLOAD
-# set to the name of the unknown method.
-#
-# In this function we work out which method has been called and
-# simulate it by returning the correct attribute value (and setting
-# it to a new value if the method was passed a new value to use).
-#
-# We're also a little cleverer than that as we create a new method on
-# the fly so that the next time we call the missing method it has
-# magically sprung into existance, thereby avoiding the overhead of
-# calling AUTOLOAD more than once for each method called.
-#
-sub AUTOLOAD {
- no strict 'refs';
- my ($self, $val) = @_;
- my ($name) = $AUTOLOAD =~ m/.*::(\w*)/;
-
- *{$AUTOLOAD} = sub { return @_ > 1 ?
- $_[0]->{$name} = $_[1] :
- $_[0]->{$name}};
-
- return defined $val ? $self->{$name} = $val : $self->{$name};
-}
-
-#
-# One (small) downside of the AUTOLOAD trick, is that we need to
-# explicitly define a DESTROY method to prevent Perl from passing
-# those calls to AUTOLOAD. In this case we don't need to do anything.
-#
-sub DESTROY { }
+no Moose;
+__PACKAGE__->meta->make_immutable;
1;
__END__
More information about the Pkg-perl-cvs-commits
mailing list