r19488 - in /branches/upstream/libclass-std-perl/current: Changes MANIFEST META.yml lib/Class/Std.pm t/can.t

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Tue May 6 09:45:19 UTC 2008


Author: dmn
Date: Tue May  6 09:45:19 2008
New Revision: 19488

URL: http://svn.debian.org/wsvn/?sc=1&rev=19488
Log:
[svn-upgrade] Integrating new upstream version, libclass-std-perl (0.0.9)

Added:
    branches/upstream/libclass-std-perl/current/t/can.t
Modified:
    branches/upstream/libclass-std-perl/current/Changes
    branches/upstream/libclass-std-perl/current/MANIFEST
    branches/upstream/libclass-std-perl/current/META.yml
    branches/upstream/libclass-std-perl/current/lib/Class/Std.pm

Modified: branches/upstream/libclass-std-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-std-perl/current/Changes?rev=19488&op=diff
==============================================================================
--- branches/upstream/libclass-std-perl/current/Changes (original)
+++ branches/upstream/libclass-std-perl/current/Changes Tue May  6 09:45:19 2008
@@ -65,3 +65,10 @@
 0.0.8  Mon Feb 20 07:04:13 2006
 
     - Removed spurious use of Smart::Comments (thanks Patrick)
+
+0.0.9  Mon Mar 24 20:05:46 CDT 2008
+    (git repo a69ea855db33a400499d0b9ddf7cc355a5203efb)
+
+    - Added 'how can I help' POD
+
+    - Applied Andreas 'ac0v' Specht patches for rt 30833

Modified: branches/upstream/libclass-std-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-std-perl/current/MANIFEST?rev=19488&op=diff
==============================================================================
--- branches/upstream/libclass-std-perl/current/MANIFEST (original)
+++ branches/upstream/libclass-std-perl/current/MANIFEST Tue May  6 09:45:19 2008
@@ -22,6 +22,7 @@
 t/pod.t
 t/simple.t
 t/dump.t
+t/can.t
 t/access.t
 t/access_automethod.t
 t/access_name.t

Modified: branches/upstream/libclass-std-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-std-perl/current/META.yml?rev=19488&op=diff
==============================================================================
--- branches/upstream/libclass-std-perl/current/META.yml (original)
+++ branches/upstream/libclass-std-perl/current/META.yml Tue May  6 09:45:19 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Class-Std
-version:      v0.0.8
+version:      0.0.9
 version_from: lib/Class/Std.pm
 installdirs:  site
 requires:
@@ -11,4 +11,4 @@
     version:                       0
 
 distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30

Modified: branches/upstream/libclass-std-perl/current/lib/Class/Std.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-std-perl/current/lib/Class/Std.pm?rev=19488&op=diff
==============================================================================
--- branches/upstream/libclass-std-perl/current/lib/Class/Std.pm (original)
+++ branches/upstream/libclass-std-perl/current/lib/Class/Std.pm Tue May  6 09:45:19 2008
@@ -1,6 +1,6 @@
 package Class::Std;
 
-use version; $VERSION = qv('0.0.8');
+use version; $VERSION = qv('0.0.9');
 use strict;
 use warnings;
 use Carp;
@@ -560,17 +560,19 @@
     *UNIVERSAL::can = sub {
         my ($invocant, $method_name) = @_;
 
-        if (my $sub_ref = $real_can->(@_)) {
-            return $sub_ref;
-        }
-
-        for my $parent_class ( _hierarchy_of(ref $invocant || $invocant) ) {
-            no strict 'refs';
-            if (my $automethod_ref = *{$parent_class.'::AUTOMETHOD'}{CODE}) {
-                local $CALLER::_ = $_;
-                local $_ = $method_name;
-                if (my $method_impl = $automethod_ref->(@_)) {
-                    return sub { my $inv = shift; $inv->$method_name(@_) }
+        if ( defined $invocant ) {
+            if (my $sub_ref = $real_can->(@_)) {
+                return $sub_ref;
+            }
+
+            for my $parent_class ( _hierarchy_of(ref $invocant || $invocant) ) {
+                no strict 'refs';
+                if (my $automethod_ref = *{$parent_class.'::AUTOMETHOD'}{CODE}) {
+                    local $CALLER::_ = $_;
+                    local $_ = $method_name;
+                    if (my $method_impl = $automethod_ref->(@_)) {
+                        return sub { my $inv = shift; $inv->$method_name(@_) }
+                    }
                 }
             }
         }
@@ -2270,6 +2272,43 @@
 
 =back
 
+=head1 I know we're all busy, I'd like to help maintain Class::Std!
+
+First off, thanks! Here's how you can go about it:
+
+=over 4
+
+=item 1 Get fresh git (L<http://git.or.cz/>) repository
+
+   git clone http://drmuey.com/perl/class-std.git-repos/
+
+=item 2 Update your local repository with latest changes
+
+   cd ~/class-std.git-repos/
+   git pull
+
+=item 3 Guidelines for Making Changes
+
+=over 4
+
+=item * changes should have clear log message of its purpose, referencing the rt.cpan.org report number its related to (if any)
+
+=item * changes should include tests for the changes
+
+=item * your CPAN ID as author
+
+=back
+
+=item 4 Submit your changes for review and integration
+
+Send patches, as per L<http://www.kernel.org/pub/software/scm/git/docs/user-manual.html#submitting-patches>, to CPAN ID: DMUEY
+
+=item 5 Questions?
+
+Contact Dan Muey, L<http://search.cpan.org/~dmuey/>
+
+=back
+
 =head1 AUTHOR
 
 Damian Conway  C<< <DCONWAY at cpan.org> >>

Added: branches/upstream/libclass-std-perl/current/t/can.t
URL: http://svn.debian.org/wsvn/branches/upstream/libclass-std-perl/current/t/can.t?rev=19488&op=file
==============================================================================
--- branches/upstream/libclass-std-perl/current/t/can.t (added)
+++ branches/upstream/libclass-std-perl/current/t/can.t Tue May  6 09:45:19 2008
@@ -1,0 +1,13 @@
+use Test::More 'no_plan';
+
+use Class::Std;
+
+use strict;
+use warnings;
+
+my @warnings;
+local $SIG{__WARN__} = sub { push @warnings, @_; warn @_; };
+
+
+UNIVERSAL::can(undef, 'any');
+ok(! @warnings, 'overwritten UNIVERSAL::can throws no warnings');




More information about the Pkg-perl-cvs-commits mailing list