r71935 - in /trunk/libobject-tiny-perl: Changes MANIFEST META.yml Makefile.PL README debian/changelog lib/Object/Tiny.pm t/01_compile.t t/97_meta.t t/98_pod.t t/99_pmv.t xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Mar 24 00:44:11 UTC 2011
Author: jawnsy-guest
Date: Thu Mar 24 00:44:02 2011
New Revision: 71935
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71935
Log:
No functional changes
IGNORE-VERSION: 1.08-1
* New upstream release
Added:
trunk/libobject-tiny-perl/xt/
- copied from r71934, branches/upstream/libobject-tiny-perl/current/xt/
Removed:
trunk/libobject-tiny-perl/t/97_meta.t
trunk/libobject-tiny-perl/t/98_pod.t
trunk/libobject-tiny-perl/t/99_pmv.t
Modified:
trunk/libobject-tiny-perl/Changes
trunk/libobject-tiny-perl/MANIFEST
trunk/libobject-tiny-perl/META.yml
trunk/libobject-tiny-perl/Makefile.PL
trunk/libobject-tiny-perl/README
trunk/libobject-tiny-perl/debian/changelog
trunk/libobject-tiny-perl/lib/Object/Tiny.pm
trunk/libobject-tiny-perl/t/01_compile.t
Modified: trunk/libobject-tiny-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/Changes?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/Changes (original)
+++ trunk/libobject-tiny-perl/Changes Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/MANIFEST?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/MANIFEST (original)
+++ trunk/libobject-tiny-perl/MANIFEST Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/META.yml?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/META.yml (original)
+++ trunk/libobject-tiny-perl/META.yml Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/Makefile.PL?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/Makefile.PL (original)
+++ trunk/libobject-tiny-perl/Makefile.PL Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/README?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/README (original)
+++ trunk/libobject-tiny-perl/README Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/debian/changelog?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/debian/changelog (original)
+++ trunk/libobject-tiny-perl/debian/changelog Thu Mar 24 00:44:02 2011
@@ -1,3 +1,12 @@
+libobject-tiny-perl (1.08-1) UNRELEASED; urgency=low
+
+ No functional changes
+ IGNORE-VERSION: 1.08-1
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 23 Mar 2011 21:01:46 -0400
+
libobject-tiny-perl (1.06-1) unstable; urgency=low
* Initial Release (Closes: #619079)
Modified: trunk/libobject-tiny-perl/lib/Object/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/lib/Object/Tiny.pm?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/lib/Object/Tiny.pm (original)
+++ trunk/libobject-tiny-perl/lib/Object/Tiny.pm Thu Mar 24 00:44:02 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: trunk/libobject-tiny-perl/t/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-tiny-perl/t/01_compile.t?rev=71935&op=diff
==============================================================================
--- trunk/libobject-tiny-perl/t/01_compile.t (original)
+++ trunk/libobject-tiny-perl/t/01_compile.t Thu Mar 24 00:44:02 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' );
More information about the Pkg-perl-cvs-commits
mailing list