/
QuantHash.pm6
38 lines (30 loc) · 1.2 KB
/
QuantHash.pm6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
my role QuantHash does Associative {
method SET-SELF(QuantHash:D: \elems) {
nqp::stmts(
nqp::if(
nqp::elems(elems),
nqp::bindattr(self,::?CLASS,'$!elems',elems)
),
self
)
}
method Int ( --> Int:D) { self.total.Int }
method Num ( --> Num:D) { self.total.Num }
method Numeric ( --> Numeric:D) { self.total.Numeric }
method Real ( --> Real:D) { self.total.Real }
method Capture() { self.Hash.Capture }
multi method list(QuantHash:U:) { self.Any::list }
multi method list(QuantHash:D:) { self.pairs.cache }
method fmt(QuantHash: Cool $format = "%s\t\%s", $sep = "\n") {
nqp::iseq_i(nqp::sprintfdirectives( nqp::unbox_s($format.Stringy)),1)
?? self.keys.fmt($format, $sep)
!! self.pairs.fmt($format, $sep)
}
multi method AT-KEY(QuantHash:U \SELF: $key) is raw {
nqp::istype(self, Set) || nqp::istype(self, Bag) || nqp::istype(self, Mix)
?? die "Cannot auto-vivify an immutable {SELF.^name}"
!! (SELF = self.new).AT-KEY($key)
}
multi method pairs(QuantHash:D:) { Seq.new(self.iterator) }
}
# vim: ft=perl6 expandtab sw=4