use Perl

• Class::MOP Makes This Easy (Score:1)

  by chromatic (983)

  You should be able to do this in a few minutes with Class::MOP::Class [cpan.org], especially the create_anon_class method.
• Badger::Class also makes this easy (Score:1)

  by abw (998)

  The code sample you posted is almost there. You just need to create an anonymous package name instead of using __PACKAGE__. I would simply append the accessor names to the base class, e.g. Object::Anonymous_ding_wong_line

    sub new {
        my $class = shift;
        my %args = @_;
        my $self = { };
        my $name = join('_', $class, keys %args);

          for my $arg (keys %args) {

  • Re: (Score:1)

    by abw (998)

    s/Auto/Anon/ # cut and paste fail
  • Re: (Score:1)

    by revdiablo (1502)

    The code sample you posted is almost there. You just need to create an anonymous package name instead

    Ha! Who woulda' thunk? I wrote that example code off-the-cuff in an attempt to better explain what I wanted. But that's a simple enough change that I'm now tempted to start using it as-is. Any other issues you can think might be lurking in the code?
    • Re: (Score:1)

      by revdiablo (1502)

      I guess some sanity checks on the attribute names would be a good idea...
• Data::AsObject (Score:1)

  by pshangov (3074)

  Maybe this can help: http://search.cpan.org/dist/Data-AsObject/ [cpan.org] (Note - I am the author).
• And also (Score:1)

  by draegtun (6354)

  Also check out:
  
  * http://search.cpan.org/dist/Hash-AsObject/ [cpan.org]
  * http://search.cpan.org/dist/Squatting/ [cpan.org]
  
  And also:
  
  * http://transfixedbutnotdead.com/2009/09/16/easy-anonymous-objects/ [transfixedbutnotdead.com]
  
  As always there is more than one way|solution|module to do it ;-)
  
  /I3az/
  • Re: (Score:1)

    by draegtun (6354)

    Opps that should be Squatting::H
    
    http://search.cpan.org/dist/Squatting/lib/Squatting/H.pm [cpan.org]