r71933 - in /branches/upstream/libobject-tiny-perl/current: Changes MANIFEST META.yml Makefile.PL README lib/Object/Tiny.pm t/01_compile.t t/97_meta.t t/98_pod.t t/99_pmv.t xt/ xt/meta.t xt/pmv.t xt/pod.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Mar 24 00:41:40 UTC 2011
Author: jawnsy-guest
Date: Thu Mar 24 00:41:08 2011
New Revision: 71933
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71933
Log:
[svn-upgrade] new version libobject-tiny-perl (1.08)
Added:
branches/upstream/libobject-tiny-perl/current/xt/
branches/upstream/libobject-tiny-perl/current/xt/meta.t
branches/upstream/libobject-tiny-perl/current/xt/pmv.t
branches/upstream/libobject-tiny-perl/current/xt/pod.t
Removed:
branches/upstream/libobject-tiny-perl/current/t/97_meta.t
branches/upstream/libobject-tiny-perl/current/t/98_pod.t
branches/upstream/libobject-tiny-perl/current/t/99_pmv.t
Modified:
branches/upstream/libobject-tiny-perl/current/Changes
branches/upstream/libobject-tiny-perl/current/MANIFEST
branches/upstream/libobject-tiny-perl/current/META.yml
branches/upstream/libobject-tiny-perl/current/Makefile.PL
branches/upstream/libobject-tiny-perl/current/README
branches/upstream/libobject-tiny-perl/current/lib/Object/Tiny.pm
branches/upstream/libobject-tiny-perl/current/t/01_compile.t
Modified: branches/upstream/libobject-tiny-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/Changes?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/Changes (original)
+++ branches/upstream/libobject-tiny-perl/current/Changes Thu Mar 24 00:41:08 2011
@@ -1,4 +1,12 @@
Revision history for Perl extension Object-Tiny
+
+1.08 Wed 23 Mar 2011
+ - No functional changes
+ - Makefile.PL contains the wrong abstract
+
+1.07 Tue 22 Mar 2011
+ - No functional changes
+ - Updated Module::Install and author tests
1.06 Fri 4 Jul 2008
- No functional changes
Modified: branches/upstream/libobject-tiny-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/MANIFEST?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/MANIFEST (original)
+++ branches/upstream/libobject-tiny-perl/current/MANIFEST Thu Mar 24 00:41:08 2011
@@ -12,7 +12,7 @@
t/01_compile.t
t/02_main.t
t/03_subclass.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
+xt/meta.t
+xt/pmv.t
+xt/pod.t
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libobject-tiny-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/META.yml?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/META.yml (original)
+++ branches/upstream/libobject-tiny-perl/current/META.yml Thu Mar 24 00:41:08 2011
@@ -1,14 +1,22 @@
--- #YAML:1.0
-name: Object-Tiny
-version: 1.06
-abstract: A date object with as little code as possible
-license: perl
-author:
+name: Object-Tiny
+version: 1.08
+abstract: Class building as simple as it gets
+author:
- Adam Kennedy <adamk at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Test::More: 0.47
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Test::More: 0.47
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libobject-tiny-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/Makefile.PL?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/Makefile.PL (original)
+++ branches/upstream/libobject-tiny-perl/current/Makefile.PL Thu Mar 24 00:41:08 2011
@@ -2,13 +2,13 @@
use vars qw{$VERSION};
BEGIN {
require 5.003_96;
- $VERSION = '1.06';
+ $VERSION = '1.08';
}
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'Object::Tiny',
- ABSTRACT => 'A date object with as little code as possible',
+ ABSTRACT => 'Class building as simple as it gets',
VERSION => $VERSION,
PREREQ_PM => {
# Skip on Windows to avoid breaking ActivePerl PPMs
Modified: branches/upstream/libobject-tiny-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/README?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/README (original)
+++ branches/upstream/libobject-tiny-perl/current/README Thu Mar 24 00:41:08 2011
@@ -4,15 +4,16 @@
SYNOPSIS
# Define a class
package Foo;
+
+ use Object::Tiny qw{ bar baz };
+
+ 1;
+
- use Object::Tiny qw{ bar baz };
-
- 1;
-
- # Use the class
+ # Use the class
my $object = Foo->new( bar => 1 );
-
- print "bar is " . $object->bar . "\n";
+
+ print "bar is " . $object->bar . "\n";
DESCRIPTION
There's a whole bunch of class builders out there. In fact, creating a
@@ -56,7 +57,7 @@
seperator_font_color
seperator_font_size
seperator_text_content
- };
+ };
This will create a bunch of simple accessors, and set the inheritance to
be the child of Object::Tiny.
@@ -74,11 +75,11 @@
sub new {
my $class = shift;
my $self = $class->SUPER::new( @_ );
-
- # Extra checking and such
+
+ # Extra checking and such
...
-
- return $self;
+
+ return $self;
}
... then feel free to ditch the SUPER call and just create the hash
@@ -164,13 +165,13 @@
Rate accessor tiny
accessor 100949/s -- -45%
tiny 182382/s 81% --
-
- Benchmarking constructor alone...
+
+ Benchmarking constructor alone...
Rate accessor tiny
accessor 156470/s -- -54%
tiny 342231/s 119% --
-
- Benchmarking accessors alone...
+
+ Benchmarking accessors alone...
Rate tiny accessor
tiny 81.0/s -- -0%
accessor 81.0/s 0% --
@@ -191,16 +192,16 @@
Here's what the classes used in the benchmark end up like.
DB<1> use Class::Inspector
-
- DB<2> x Class::Inspector->methods('Foo_Bar_Tiny');
+
+ DB<2> x Class::Inspector->methods('Foo_Bar_Tiny');
0 ARRAY(0xfda780)
0 'bar'
1 'baz'
2 'foo'
3 'import'
4 'new'
-
- DB<3> x Class::Inspector->methods('Foo_Bar_Accessor');
+
+ DB<3> x Class::Inspector->methods('Foo_Bar_Accessor');
0 ARRAY(0xfdb3c8)
0 '_bar_accessor'
1 '_baz_accessor'
@@ -269,7 +270,7 @@
Config::Tiny
COPYRIGHT
- Copyright 2007 - 2008 Adam Kennedy.
+ Copyright 2007 - 2011 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libobject-tiny-perl/current/lib/Object/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/lib/Object/Tiny.pm?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/lib/Object/Tiny.pm (original)
+++ branches/upstream/libobject-tiny-perl/current/lib/Object/Tiny.pm Thu Mar 24 00:41:08 2011
@@ -3,7 +3,7 @@
use strict 'vars', 'subs';
BEGIN {
require 5.004;
- $Object::Tiny::VERSION = '1.06';
+ $Object::Tiny::VERSION = '1.08';
}
sub import {
@@ -14,7 +14,7 @@
"package $pkg;",
($child ? () : "\@${pkg}::ISA = 'Object::Tiny';"),
map {
- defined and ! ref and /^[^\W\d]\w*$/s
+ defined and ! ref and /^[^\W\d]\w*\z/s
or die "Invalid accessor name '$_'";
"sub $_ { return \$_[0]->{$_} }"
} @_;
@@ -94,7 +94,7 @@
seperator_font_color
seperator_font_size
seperator_text_content
- };
+ };
This will create a bunch of simple accessors, and set the inheritance to
be the child of Object::Tiny.
@@ -148,7 +148,7 @@
B<Object::Tiny is 93% smaller than Class::Accessor::Fast>
-Class::Accessor::Fast requires about 125k of memory to load.
+L<Class::Accessor::Fast> requires about 125k of memory to load.
Object::Tiny requires about 8k of memory to load.
@@ -311,7 +311,7 @@
=head1 COPYRIGHT
-Copyright 2007 - 2008 Adam Kennedy.
+Copyright 2007 - 2011 Adam Kennedy.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
Modified: branches/upstream/libobject-tiny-perl/current/t/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/t/01_compile.t?rev=71933&op=diff
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/t/01_compile.t (original)
+++ branches/upstream/libobject-tiny-perl/current/t/01_compile.t Thu Mar 24 00:41:08 2011
@@ -8,8 +8,11 @@
$^W = 1;
}
-use Test::More tests => 2;
+use Test::More tests => 3;
ok( $] >= 5.004, 'Perl version is 5.004 or newer' );
require_ok( 'Object::Tiny' );
+
+my $bad = 0;
+is( $bad, 0, '$bad ok' );
Added: branches/upstream/libobject-tiny-perl/current/xt/meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/xt/meta.t?rev=71933&op=file
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/xt/meta.t (added)
+++ branches/upstream/libobject-tiny-perl/current/xt/meta.t Thu Mar 24 00:41:08 2011
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the current specification.
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my $MODULE = 'Test::CPAN::Meta 0.17';
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing module
+eval "use $MODULE";
+if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+}
+
+meta_yaml_ok();
Added: branches/upstream/libobject-tiny-perl/current/xt/pmv.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/xt/pmv.t?rev=71933&op=file
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/xt/pmv.t (added)
+++ branches/upstream/libobject-tiny-perl/current/xt/pmv.t Thu Mar 24 00:41:08 2011
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Perl::MinimumVersion 1.27',
+ 'Test::MinimumVersion 0.101080',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_minimum_version_from_metayml_ok();
Added: branches/upstream/libobject-tiny-perl/current/xt/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libobject-tiny-perl/current/xt/pod.t?rev=71933&op=file
==============================================================================
--- branches/upstream/libobject-tiny-perl/current/xt/pod.t (added)
+++ branches/upstream/libobject-tiny-perl/current/xt/pod.t Thu Mar 24 00:41:08 2011
@@ -1,0 +1,32 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Pod::Simple 3.14',
+ 'Test::Pod 1.44',
+);
+
+# Don't run tests for installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list