Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
a small role to enable 'has' when inheriting from core classes
Perl6
branch: master

Merge pull request #2 from zoffixznet/add_meta_provides

add provides section for latest panda (S11 support)
latest commit 4d43e13850
@sirrobert authored

README.md

Class::Utils

role Has

Some of the core classes don't run through bless during object creation (apparently for efficiency reasons). This means that if you define a class that inherits from Array, for example, you can't define properties for the class using the normal has route.

The Has role addresses this by importing a new new that takes advantage of bless.

Usage

The following code breaks. If you try to access $.foo below, you get an undefined Any value instead of 'bar'.

class MySet is Array {
  has $.foo = 'bar';
}

say MySet.new.foo;    # Any()

Fix this with does Has from Class::Utils:

use Class::Utils;

class MySet is Array does Has {
  has $.foo = 'bar';
}

say MySet.new.foo;    # bar
Something went wrong with that request. Please try again.