r43719 - in /trunk/libobject-event-perl: ./ debian/ lib/Object/ samples/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Sep 5 01:06:48 UTC 2009
Author: jawnsy-guest
Date: Sat Sep 5 01:06:12 2009
New Revision: 43719
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43719
Log:
* New upstream release
+ Fix bug in event method always returning false
+ Now uses common::sense
* Remove extraneous new line in description
* Added myself to Uploaders and Copyright
Added:
trunk/libobject-event-perl/t/16_event.t
- copied unchanged from r43718, branches/upstream/libobject-event-perl/current/t/16_event.t
Modified:
trunk/libobject-event-perl/Changes
trunk/libobject-event-perl/MANIFEST
trunk/libobject-event-perl/META.yml
trunk/libobject-event-perl/Makefile.PL
trunk/libobject-event-perl/README
trunk/libobject-event-perl/debian/changelog
trunk/libobject-event-perl/debian/control
trunk/libobject-event-perl/debian/copyright
trunk/libobject-event-perl/lib/Object/Event.pm
trunk/libobject-event-perl/samples/benchmark
trunk/libobject-event-perl/t/01_simple_events.t
trunk/libobject-event-perl/t/02_stop_event.t
trunk/libobject-event-perl/t/03_event_within.t
trunk/libobject-event-perl/t/04_recursive.t
trunk/libobject-event-perl/t/05_unreg_rec.t
trunk/libobject-event-perl/t/06_unreg_guard.t
trunk/libobject-event-perl/t/07_event_name.t
trunk/libobject-event-perl/t/08_priorities.t
trunk/libobject-event-perl/t/10_continue.t
trunk/libobject-event-perl/t/12_prio.t
trunk/libobject-event-perl/t/13_methods.t
trunk/libobject-event-perl/t/14_methods2.t
trunk/libobject-event-perl/t/15_methods_subc.t
Modified: trunk/libobject-event-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/Changes?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/Changes (original)
+++ trunk/libobject-event-perl/Changes Sat Sep 5 01:06:12 2009
@@ -1,4 +1,9 @@
Revision history for Object-Event:
+
+1.101 Fri Sep 4 14:24:58 CEST 2009
+ - fixed stupid bug in event method, returning always false
+ (added test for that now).
+ - using common::sense now.
1.1 Sun Aug 9 18:05:08 CEST 2009
- fixed some really wrong documentation (i.e.: about return values of
Modified: trunk/libobject-event-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/MANIFEST?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/MANIFEST (original)
+++ trunk/libobject-event-perl/MANIFEST Sat Sep 5 01:06:12 2009
@@ -17,6 +17,7 @@
t/13_methods.t
t/14_methods2.t
t/15_methods_subc.t
+t/16_event.t
samples/simple_example
samples/benchmark
samples/mass_example
Modified: trunk/libobject-event-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/META.yml?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/META.yml (original)
+++ trunk/libobject-event-perl/META.yml Sat Sep 5 01:06:12 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Object-Event
-version: 1.1
+version: 1.101
abstract: A class that provides an event callback interface
author:
- Robin Redeker <elmex at x-paste.de>
@@ -8,14 +8,17 @@
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
- AnyEvent: 3.5
- Test::More: 0
+ AnyEvent: 3.5
+ common::sense: 0
+ Test::More: 0
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.46
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libobject-event-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/Makefile.PL?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/Makefile.PL (original)
+++ trunk/libobject-event-perl/Makefile.PL Sat Sep 5 01:06:12 2009
@@ -11,8 +11,9 @@
PL_FILES => {},
test => { TESTS => "t/*.t t/methds/*.t" },
PREREQ_PM => {
- 'Test::More' => 0,
- 'AnyEvent' => 3.5,
+ 'Test::More' => 0,
+ 'AnyEvent' => 3.5,
+ 'common::sense' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
Modified: trunk/libobject-event-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/README?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/README (original)
+++ trunk/libobject-event-perl/README Sat Sep 5 01:06:12 2009
@@ -2,7 +2,7 @@
Object::Event - A class that provides an event callback interface
VERSION
- Version 1.1
+ Version 1.101
SYNOPSIS
package foo;
Modified: trunk/libobject-event-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/debian/changelog?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/debian/changelog (original)
+++ trunk/libobject-event-perl/debian/changelog Sat Sep 5 01:06:12 2009
@@ -1,3 +1,13 @@
+libobject-event-perl (1.101-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ + Fix bug in event method always returning false
+ + Now uses common::sense
+ * Remove extraneous new line in description
+ * Added myself to Uploaders and Copyright
+
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 04 Sep 2009 16:58:25 -0400
+
libobject-event-perl (1.1-1) unstable; urgency=low
[ Maximilian Gass ]
Modified: trunk/libobject-event-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/debian/control?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/debian/control (original)
+++ trunk/libobject-event-perl/debian/control Sat Sep 5 01:06:12 2009
@@ -2,9 +2,10 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
-Build-Depends-Indep: perl, libanyevent-perl (>= 3.5)
+Build-Depends-Indep: perl, libanyevent-perl (>= 3.5), libcommon-sense-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Maximilian Gass <mxey at cloudconnected.org>
+Uploaders: Maximilian Gass <mxey at cloudconnected.org>,
+ Jonathan Yu <jawnsy at cpan.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Object-Event/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libobject-event-perl/
@@ -12,9 +13,9 @@
Package: libobject-event-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, libanyevent-perl (>= 3.5)
-Description: Event callback interface
+Depends: ${perl:Depends}, ${misc:Depends}, libanyevent-perl (>= 3.5),
+ libcommon-sense-perl
+Description: Perl event callback interface
Object::Event provides a consistent API for registering and emitting events.
- .
You can register callbacks for events, trigger events and even stop the
current event from running further callbacks.
Modified: trunk/libobject-event-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/debian/copyright?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/debian/copyright (original)
+++ trunk/libobject-event-perl/debian/copyright Sat Sep 5 01:06:12 2009
@@ -5,12 +5,13 @@
Upstream-Name: Object-Event
Files: *
-Copyright: Copyright 2009 Robin Redeker, all rights reserved.
+Copyright: 2009, Robin Redeker <elmex at x-paste.de>
License-Alias: Perl
License: Artistic | GPL-1+
Files: debian/*
Copyright: 2009, Maximilian Gaß <mxey at cloudconnected.org>
+ 2009, Jonathan Yu <jawnsy at cpan.org>
License: Artistic | GPL-1+
License: Artistic
Modified: trunk/libobject-event-perl/lib/Object/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/lib/Object/Event.pm?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/lib/Object/Event.pm (original)
+++ trunk/libobject-event-perl/lib/Object/Event.pm Sat Sep 5 01:06:12 2009
@@ -1,6 +1,5 @@
package Object::Event;
-use strict;
-no warnings;
+use common::sense;
use Carp qw/croak/;
use AnyEvent::Util qw/guard/;
@@ -12,11 +11,11 @@
=head1 VERSION
-Version 1.1
-
-=cut
-
-our $VERSION = '1.1';
+Version 1.101
+
+=cut
+
+our $VERSION = '1.101';
=head1 SYNOPSIS
@@ -159,7 +158,6 @@
}
if ($self->{enable_methods}) {
- no strict 'refs';
my $class = ref $self;
for my $ev (keys %{"$class\::__OE_INHERITED_METHODS"}) {
$self->_check_method ($ev)
@@ -342,8 +340,6 @@
sub _check_method {
my ($self, $ev) = @_;
my $pkg = ref ($self);
-
- no strict 'refs';
my $add = 0;
my $repl = 0;
@@ -445,6 +441,8 @@
# Legacy code end
######################
+ return unless @cbs;
+
local $self->{__oe_cbs} = [\@cbs, \@arg, $ev];
eval {
$cbs[0]->[2]->($self, @arg), shift @cbs while @cbs;
@@ -461,7 +459,7 @@
}
}
- @cbs > 0
+ 1 # handlers ran
}
=item my $bool = $obj->handles ($eventname)
@@ -621,8 +619,6 @@
sub hand_event_methods_down {
my ($pkg, @evs) = @_;
- no strict 'refs';
-
for my $ev (@evs) {
for my $meth (@{${"$pkg\::__OE_INHERITED_METHODS"}{$ev} || []}) {
push @{${"$pkg\::__OE_HANDED_METHODS"}{$ev}}, $meth;
@@ -649,7 +645,6 @@
sub hand_event_methods_down_from {
my ($pkg, @pkgs) = @_;
- no strict 'refs';
$pkg->hand_event_methods_down (keys %{"$pkg\::__OE_INHERITED_METHODS"});
}
@@ -666,8 +661,6 @@
sub inherit_event_methods_from {
my ($pkg, @suppkgs) = @_;
-
- no strict 'refs';
for my $suppkg (@suppkgs) {
for my $ev (keys %{"$suppkg\::__OE_HANDED_METHODS"}) {
Modified: trunk/libobject-event-perl/samples/benchmark
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/samples/benchmark?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/samples/benchmark (original)
+++ trunk/libobject-event-perl/samples/benchmark Sat Sep 5 01:06:12 2009
@@ -1,8 +1,7 @@
#!perl
package foo;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
@@ -16,8 +15,7 @@
sub test { $cnt++ }
package main;
-use strict;
-no warnings;
+use common::sense;
use Benchmark qw/:all/;
Modified: trunk/libobject-event-perl/t/01_simple_events.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/01_simple_events.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/01_simple_events.t (original)
+++ trunk/libobject-event-perl/t/01_simple_events.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 10;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/02_stop_event.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/02_stop_event.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/02_stop_event.t (original)
+++ trunk/libobject-event-perl/t/02_stop_event.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 25;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/03_event_within.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/03_event_within.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/03_event_within.t (original)
+++ trunk/libobject-event-perl/t/03_event_within.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 2;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/04_recursive.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/04_recursive.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/04_recursive.t (original)
+++ trunk/libobject-event-perl/t/04_recursive.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 1;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/05_unreg_rec.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/05_unreg_rec.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/05_unreg_rec.t (original)
+++ trunk/libobject-event-perl/t/05_unreg_rec.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 6;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/06_unreg_guard.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/06_unreg_guard.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/06_unreg_guard.t (original)
+++ trunk/libobject-event-perl/t/06_unreg_guard.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 4;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/07_event_name.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/07_event_name.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/07_event_name.t (original)
+++ trunk/libobject-event-perl/t/07_event_name.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 1;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/08_priorities.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/08_priorities.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/08_priorities.t (original)
+++ trunk/libobject-event-perl/t/08_priorities.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 4;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/10_continue.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/10_continue.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/10_continue.t (original)
+++ trunk/libobject-event-perl/t/10_continue.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 2;
package foo;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,8 +11,7 @@
sub test { }
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new;
Modified: trunk/libobject-event-perl/t/12_prio.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/12_prio.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/12_prio.t (original)
+++ trunk/libobject-event-perl/t/12_prio.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 1;
package foo;
-use strict;
-no warnings;
+use common::sense;
use Object::Event;
$Object::Event::ENABLE_METHODS_DEFAULT = $ENV{OE_METHODS_ENABLE};
@@ -12,11 +11,9 @@
our @ISA = qw/Object::Event/;
package main;
-use strict;
-no warnings;
+use common::sense;
# obfuscation around update_test
-no strict 'refs';
my $oe = 'Object' . '::' . 'Event';
&{$oe. '::' . 'register_priority_alias'} ('first', 3000);
&{$oe. '::' . 'register_priority_alias'} ('last', -3000);
Modified: trunk/libobject-event-perl/t/13_methods.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/13_methods.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/13_methods.t (original)
+++ trunk/libobject-event-perl/t/13_methods.t Sat Sep 5 01:06:12 2009
@@ -1,10 +1,9 @@
#!perl
-use Test::More tests => 6;
+use Test::More tests => 7;
package foo;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
@@ -14,8 +13,7 @@
}
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new (enable_methods => 1);
my $f2 = foo->new (enable_methods => 1);
@@ -36,3 +34,5 @@
$f2->foobar;
is ($f->{b}, 10, 'first object got method with event callback');
is ($f2->{b}, undef, 'second object doesn\'t have method with event callback');
+
+ok ($f->event ('test'), 'event returns true for methods');
Modified: trunk/libobject-event-perl/t/14_methods2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/14_methods2.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/14_methods2.t (original)
+++ trunk/libobject-event-perl/t/14_methods2.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 5;
package foo;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
@@ -16,8 +15,7 @@
sub reset { (shift)->{res} = 0 }
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new (enable_methods => 1);
Modified: trunk/libobject-event-perl/t/15_methods_subc.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libobject-event-perl/t/15_methods_subc.t?rev=43719&op=diff
==============================================================================
--- trunk/libobject-event-perl/t/15_methods_subc.t (original)
+++ trunk/libobject-event-perl/t/15_methods_subc.t Sat Sep 5 01:06:12 2009
@@ -3,8 +3,7 @@
use Test::More tests => 5;
package first;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
@@ -21,8 +20,7 @@
}
package pre;
-use strict;
-no warnings;
+use common::sense;
use base qw/first/;
@@ -35,8 +33,7 @@
}
package foo;
-use strict;
-no warnings;
+use common::sense;
use base qw/Object::Event/;
@@ -46,8 +43,7 @@
}
package bar;
-use strict;
-no warnings;
+use common::sense;
use base qw/foo pre/;
@@ -64,8 +60,7 @@
}
package main;
-use strict;
-no warnings;
+use common::sense;
my $f = foo->new (enable_methods => 1);
my $b = bar->new (enable_methods => 1);
More information about the Pkg-perl-cvs-commits
mailing list