Select Code to Download

class Fish {
    has @.scales;
}

class Fish {
  has @!scales;
  method scales () { return @!scales }
...
  method gist () { … }
  method Capture () { \( :@!scales ) }
}

class Fish {
    has @.scales is rw;
}

class Fish {
  has @!scales;
  #                v---v
...
  method gist () { … }
  method Capture () { \( :@!scales ) }
}

my $fish = Fish.new;

$fish.scales = ('green','blue','yellow')

class Fish {
    has @.scales;
    multi method scales () { @!scales }
...
$fish.scales('green','blue','yellow');
say $fish.scales(); # does not clear it
$fish.scales(()); # clears it

class Fish {
    has @.scales;
    method scales ( |c (+@new) ) {
...
$fish.scales('green','blue','yellow');
say $fish.scales(); # does not clear it
$fish.scales(()); # clears it

class Fish {
    has @.scales;
}
...
$fish.scales = ('green','blue','yellow');
say $fish.scales();
$fish.scales = (); # clears it