Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 19 lines (13 sloc) 0.336 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#! nqp

plan(2);

class Foo {
    has $!answer;
    method question($what) { $!answer := $what }
    method answer() { $!answer }
};

my $first := Foo.new;
my $second := Foo.new;

$first.question(42);
$second.question(23);
ok($first.answer == 42, "attributes work");
ok($second.answer == 23, "... and are not shared among objects");

Something went wrong with that request. Please try again.