如何创建 Str 的子类？

Question

我有这个类，它基本上是 Str 属性的包装器：

use Vimwiki::File::TextProcessingClasses;
unit class Vimwiki::File::ContentStr;

has Str $!content;

submethod BUILD( :$content ) {
    $!content = $content;
}

method gist {
    return $!content;
}

method capitalize-headers() {
    $!content = Vimwiki::File::TextProcessingClasses::HeadlineCapitalizer.new.capitalize-headers($!content);
}

似乎用这样的东西子类化核心类会更有效Str，类似于我学到的子类化技巧IO::Path：

class Blah is Str {
    method !SET-SELF() {
        self;
    }

    method new(Str:D $string) {
        self.Str::new($string)!SET-SELF();
    }    
}

my $blah = Blah.new('hello');
say $blah;

但是，这会引发错误：Default constructor for 'Blah' only takes named arguments

Answer 1

由于 Raku 中的构造函数是普通方法（至少如果编写正确的话），它们几乎可以工作，因此无需声明自己的构造函数。子类化Str至少是：

class SubStr is Str {
}

我们可以验证它做了正确的事情，如下所示：

given SubStr.new(value => "hi") {
    say .WHAT;  # (SubStr) - correct type
   .say;        # hi - correct value
}

这似乎没有特别详细的记录。

另请注意，Stris a box around the "native" str，因此如果效率问题在于内存消耗，那么您自己的围绕 a 的拳击所str消耗的不会超过Str其本身。

unit class Vimwiki::File::ContentStr;
has str $!content;
...