http://www.perlmonks.org?node_id=986340


in reply to C-Style Struct?

I'm not really familiar with C. But does this work like a struct?

sub struct { my ($name, %args) = @_; localscope: { # we want to mangle the symbol table # so set 'no strict refs' no strict 'refs'; foreach my $a (keys %args) { *{"${name}::${a}"} = sub { my ($class, $val) = @_; # val means it needs updating if ($val) { nowarning: { no warnings 'redefine'; *{"${name}::${a}"} = sub { $val; }; } # end nowarning return $val; } return $args{$a} }; } } # end localscope } # Create a new struct struct 'Player' => ( count_var => 0, name => 'Zork', list_of_stuff => ['a', 'b'] ); print Player->name; # you can update a value in this "struct", like so Player->name('Zippy');

Replies are listed 'Best First'.
Re^2: C-Style Struct?
by influx (Beadle) on Aug 08, 2012 at 19:02 UTC

    Thinking about it, Class::Struct as mentioned in the first reply is probably a nicer option. Seems to do the same thing, but better. And it looks like it's included in perl5.16 - nice!