hi all -- i have a trivial catalyst (version 5.7015) application using the XMLRPC plugin (version 1.0) with two controllers
lib/MyApp/Controller/API.pm lib/MyApp/Controller/API/SubGroup.pm and one mixin class lib/MyApp/ControllerBase/Quux.pm which uses the base class Catalyst::Component::ACCEPT_CONTEXT (version 0.05) and has one method: sub fancy { my $self = shift; my $c = $self->context; print STDERR "context is: $c, ", (ref $c ? ref $c : "(not blessed)"), "\n"; } when i call this method from MyApp::Controller::API::test i see that $c is a blessed MyApp object; when i call the same method from MyApp::Controller::API::SubGroup::test the value of $c is the string "MyApp" and is not blessed. i'd have thought that the behavior would be the same in both cases. my question is: is my expectation incorrect and this is the correct behavior or is there a bug somewhere? i've included the three modules and MyApp.pm below, everything else in the project is untouched. thanks for any help! cheers. k. -- kevin montuori [EMAIL PROTECTED] ################################################## # # lib/MyApp.pm # package MyApp; use strict; use warnings; use Catalyst::Runtime '5.70'; use Catalyst qw/-Debug ConfigLoader Static::Simple XMLRPC/; our $VERSION = '0.01'; __PACKAGE__->config( name => 'MyApp' ); __PACKAGE__->setup; 1; ################################################## # # lib/MyApp/ControllerBase/Quux.pm # package MyApp::ControllerBase::Quux; use strict; use base qw[ Catalyst::Component::ACCEPT_CONTEXT ]; sub fancy { my $self = shift; my $c = $self->context; print STDERR "context is: $c, ", (ref $c ? ref $c : "(not blessed)"), "\n"; } 1; ################################################## # # lib/MyApp/Controller/API.pm # package MyApp::Controller::API; use strict; use base qw[ Catalyst::Controller MyApp::ControllerBase::Quux ]; sub default : Private { my ($self, $c) = @_; $c->xmlrpc; } sub test : XMLRPC { my ($self, $c) = @_; $self->fancy; return "Test Succeeded."; } 1; ################################################## # # lib/MyApp/Controller/API/SubGroup.pm # package MyApp::Controller::API::SubGroup; use strict; use base qw[ MyApp::Controller::API ]; sub test : XMLRPC { my ($self, $c) = @_; $self->fancy; return "Test Succeeded"; } 1; _______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/