madness.

diff --git a/lib/Catalyst/IOC/Service/WithAcceptContext.pm b/lib/Catalyst/IOC/Service/WithAcceptContext.pm
index 99b45e0..9e113b4 100644 (file)
--- a/lib/Catalyst/IOC/Service/WithAcceptContext.pm
+++ b/lib/Catalyst/IOC/Service/WithAcceptContext.pm
@@ -17,6 +17,9 @@ around get => sub {
     my $instance = $self->$orig(@_);
 
     if ( $accept_context_args && $instance->can($ac_sub) ) {
+        # FIXME - MADNESS!
+        # how the heck does this warn CODE???????????
+        warn ref $accept_context_args if ref $accept_context_args ne 'ARRAY';
         return $instance->$ac_sub( @$accept_context_args );
     }