lib/DX/OrderedSet.pm

   1 package DX::OrderedSet;
   2
   3 use DX::ArrayStream;
   4 use Moo;
   5
   6 with 'DX::Role::Set';
   7
   8 has values => (is => 'ro', default => sub { [] });
   9
  10 sub all { @{$_[0]->values} }
  11
  12 sub to_stream { DX::ArrayStream->from_array($_[0]->all) }
  13
  14 sub key_list { 0..$#{$_[0]->values} }
  15
  16 sub get { $_[0]->values->[$_[1]] }
  17
  18 1;