Your code is almost valid Perl 6. In order to inspect attribute $!x you have to construct an object instance leading to the two suggestions below. See the Perl 6 Object Orientation document for more.

The first approach is a more usual starting point for development.

class A {
    has Str $.x ;

    method test {
        say 'Test';
        say $!x ;
    }
}

A.new(x =>'hello').test;
[download]

The second approach is more advanced but may be closer to the OP intentions.

class A {
    has Str $.x ;

    submethod TWEAK {
        say 'Test';
        say $!x ;
    }
}

A.new;
[download]

Hello Ron,

thank you for your reply. I think what you mean is that $.x would be accessible in the class as part of a method but not directly. Therefore your first method will work of course but defeats a bit the idea that the object on creation reports its status. The second approach works exactly as it should. And I guess now I need to learn why. So you were absolutely right about the intention :).

Now I know what to learn, that is real progress!

Thx a lot!

but defeats a bit the idea that the object on creation reports its status

If you want to do that, then you would probably need to create your own constructor with this added feature in it.

Or, as shown by mr_ron, you might (re)define the TWEAK submethod, which is called by the new default constructor, so that redefining TWEAK effectively modifies the behavior of new.

this post was written before perl6 tag was added
your code does not seem at all perl code to me. Even if I'm not at all an ObjectOriented monk, as far as I know class is not used to declare classes. See package

The keyword has is used in ObjectOriented (OO) perl by modules like Moose and Moo see Moose::Manual to get started.

Before other attempts go read perlootut as introduction and other introduction manual entries in the same site: perlintro and all the language section starting with perlsyn

As side read take your opy of the wonderful ModernPerl book and notice that it stress OO on Moose even if this is not the only way do to OO in Perl.

In my library I have some links about objects

As final note Perl is the language name; perl is the program; PERL just does not exits

L*

PS use  <c> code tags</c> to rend your code in nodes: try to edit your post to use that tags. See Tutorials and Writeup Formatting Tips

PPS if this is a Perl6 question modify the titel too: [p6]  say variable in Class

PPS if this is a Perl6 question modify the titel too:  [p6]  say variable in Class

No :) The title is for humans, so perl6, perl 6... no braces/rackets/parenthesis needed/wanted/beneficial