[CDBI] overloaded operator problem
Rolf Schaufelberger <[email protected]>
| Newsgroups | gmane.comp.lang.perl.modules.class-dbi |
|---|---|
| Organization | plusW |
| Message-ID | <[email protected]> |
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
[email protected]