can't get perl Class::Struct to work

IMTheNachoMan · May 3, 2008, 6:29pm

This is my code:

#!/usr/bin/perl -w

use strict;
use Class::Struct;

struct App =>
{
        name => '$',
};

sub App::name
{
        my $self = shift;
        if( @_ )
        {
                $self->{'name'} = shift;
        }
        return $self->{'name'};
}

my $x = App->new( name => "John" );

printf("Hello %s\n", $x->name);

When I run the script I get:

Why won't it save the name (John)???

cbkihong · May 3, 2008, 9:23pm

If you comment out the entire sub App::name block, it works.

IMTheNachoMan · May 4, 2008, 12:06am

I know, but I was trying to override the accessor method.

Thanks
_Nacho

cbkihong · May 4, 2008, 9:20am

Well, the manual has some hints.

imthenachoman:

#!/usr/bin/perl -w

use strict;
use Class::Struct;

struct App =>
{
   name => '$',
};

sub App::name
{
   my $self = shift;
   if( @_ )
   {
   $self->{'App::name'} = shift;
   }
   return $self->{'App::name'};
}

my $x = App->new( name => "John" );

printf("Hello %s\n", $x->name);