[scpubgit/DKit.git] / lib / DX / OrderedSet.pm

package DX::OrderedSet;

use DX::ArrayStream;
use Moo;

with 'DX::Role::Set';

has values => (is => 'ro', default => sub { [] });

sub all { @{$_[0]->values} }

sub to_stream { DX::ArrayStream->from_array($_[0]->all) }

sub key_list { 0..$#{$_[0]->values} }

sub get { $_[0]->values->[$_[1]] }

1;
Commit	Line	Data
8c3eab7b	1	package DX::OrderedSet;
	2
	3	use DX::ArrayStream;
	4	use Moo;
	5
db732a14	6	with 'DX::Role::Set';
db732a14	7
8c3eab7b	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
138613a8	14	sub key_list { 0..$#{$_[0]->values} }
	15
	16	sub get { $_[0]->values->[$_[1]] }
	17
8c3eab7b	18	1;