[CDBI] overloaded operator problem

Rolf Schaufelberger rs at plusw.de
Thu Jun 1 14:53:13 BST 2006


Hi, 
I get the follwing error message:

Operation `eq': no method found,
left argument in overloaded package PW::DB::Company,
right argument has no overloaded magic 
at /serv/perl/lib//PW/PermissionManager.pm line 15.
context:  	
...  	
11:  	
12:  	sub grants($$$$) {
13:  	my ( $this, $user, $action, $resource ) = @_;
14:  	return 0 unless $action eq 'admin';
15:  	return 1 if ( $user->company_id() eq '1' || $user->company_id() eq 
'2' );
16:  	return 0;
17:  	}

I have no idea where this comes from. The $user is a Class::DBI object, 
defined with a has_a (comapany_id => 'PW::DB::Company');
so company_id is a CDBI object as well.
PW::DB::Company has no own stringify method defined.
Any ideas ?

-- 
Mit freundlichen Grüßen

plusW
Rolf Schaufelberger

rs at plusw.de



More information about the ClassDBI mailing list