[Catalyst-commits] r13569 - in Catalyst-Authentication-Store-DBIx-Class/trunk: lib/Catalyst/Authentication/Store/DBIx/Class t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2010-09-01 20:30:28 +0100 (Wed, 01 Sep 2010)
New Revision: 13569

Modified:
   Catalyst-Authentication-Store-DBIx-Class/trunk/lib/Catalyst/Authentication/Store/DBIx/Class/User.pm
   Catalyst-Authentication-Store-DBIx-Class/trunk/t/10-user-autoload.t
Log:
remove debugging code

Modified: Catalyst-Authentication-Store-DBIx-Class/trunk/lib/Catalyst/Authentication/Store/DBIx/Class/User.pm
===================================================================
--- Catalyst-Authentication-Store-DBIx-Class/trunk/lib/Catalyst/Authentication/Store/DBIx/Class/User.pm	2010-09-01 19:19:35 UTC (rev 13568)
+++ Catalyst-Authentication-Store-DBIx-Class/trunk/lib/Catalyst/Authentication/Store/DBIx/Class/User.pm	2010-09-01 19:30:28 UTC (rev 13569)
@@ -241,7 +241,7 @@
 sub can {
     my $self = shift;
     return $self->SUPER::can(@_) || do {
-        my ($method) = @_; warn $method;
+        my ($method) = @_;
         if (my $code = $self->_user->can($method)) {
             sub { shift->_user->$code(@_) }
         } elsif (my $accessor =
@@ -373,6 +373,8 @@
 
 Matt S Trout (mst) <mst at shadowcat.co.uk>
 
+(fixes wrt can/AUTOLOAD sponsored by L<http://reask.com/>)
+
 =head1 LICENSE
 
 Copyright (c) 2007-2010 the aforementioned authors. All rights

Modified: Catalyst-Authentication-Store-DBIx-Class/trunk/t/10-user-autoload.t
===================================================================
--- Catalyst-Authentication-Store-DBIx-Class/trunk/t/10-user-autoload.t	2010-09-01 19:19:35 UTC (rev 13568)
+++ Catalyst-Authentication-Store-DBIx-Class/trunk/t/10-user-autoload.t	2010-09-01 19:30:28 UTC (rev 13569)
@@ -19,8 +19,6 @@
 
 ok(my $meth = $o->can('exists'), 'can returns true');
 
-::Dwarn $meth;
-
 is($o->$meth, $message, 'can returns right coderef');
 
 done_testing;