Re: Class::Struct - Not a CODE referemce

Works fine for me:

#!/usr/bin/perl -l
use strict;
use warnings;
use Class::Struct;

struct A => {
  b => '%',
};

my $obj = new A;

print $obj->can('b');
$obj->b('foo', "bar");  # call setter
print $obj->b('foo');

use Data::Dumper;
print Dumper $obj;


__END__
CODE(0x8b5570)
bar
$VAR1 = bless( {
                 'A::b' => {
                             'foo' => 'bar'
                           }
               }, 'A' );
[download]

(also works when I use $self->{ReferenceToA} in place of $obj)

What happens when you run this example?

Comment on Re: Class::Struct - Not a CODE referemce Select or Download Code

Replies are listed 'Best First'.
Re^2: Class::Struct - Not a CODE referemce by ungerma (Initiate) on Jun 08, 2010 at 14:02 UTC
Your example works for me too. Sorry. Apparently I took the error out of my code while reducing it to a simpler test case. My production code still exits with "Not a CODE Reference". I tried debugging it, but I do not understand why it crashes while evaluating the if-expression. `1357==>b if ($self->{TT}->call_category($key) != undef) 1358 { 1359 # Do something, never reached 1360 }` [download] `use Data::Dumper; print Dumper $key $VAR1 = 'AN-AM-BA';` [download] `print Dumper $self->{TT}->call_category $VAR1 = { 'DU-EX-TA' => 16, '-CM-' => 145, # Lots more, but not the value of $key. '-VY-' => 132 };` [download] `print Dumper $self->{TT}->call_category($key) $VAR1 = undef;` [download] `n Not a CODE reference at ...` [download] Do you have any pointer what's wrong here?	[reply] [d/l] [select]
Re^3: Class::Struct - Not a CODE referemce by almut (Canon) on Jun 08, 2010 at 14:45 UTC
`# Lots more, but not the value of $key` Where do you set the hash entry (in case you expect it to be set)? Anyhow, as you can tell from the `$VAR1 = undef` in `print Dumper $self->{TT}->call_category($key) $VAR1 = undef;` [download] when you try to fetch non-existent entries, you just get `undef` (not too surprising, actually). However, it's not the accessor that causes the `"Not a CODE reference"` issue, but something later in code you haven't shown (otherwise the error would be thrown before Dumper gets the `undef`). In other words, it might not have anything to do with Class::Struct.	[reply] [d/l] [select]
Re^4: Class::Struct - Not a CODE referemce by ungerma (Initiate) on Jun 08, 2010 at 16:17 UTC
You are right, it happens after the accessor. Thank you - problem solved! The n-command is not intuitive in if/elsif/else constructs - at least not for me. Reading the documentation helped ;-) In case someone struggles with the same error - you probably did this: `$ref->a->($key);` [download] but meant this: `$ref->a($key);` [download] Cheers, Martin	[reply] [d/l] [select]