X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FTypes.pm;h=2482f01f36c2c368fa6be03c805b438ef2df4514;hb=22d295940695930eebfbd7d0bd2e7495667cbb49;hp=5a8756fd52987cf804f4905e4c4d1cfbeace4bcd;hpb=fe5af11f90482c9f5bdf74cd1f7699849451e211;p=scpubgit%2FDX.git diff --git a/lib/DX/Types.pm b/lib/DX/Types.pm index 5a8756f..2482f01 100644 --- a/lib/DX/Types.pm +++ b/lib/DX/Types.pm @@ -15,6 +15,7 @@ use Type::Library qw( DependencyType _DependencyTree DependencySpec One DependencyGroupEntry DependencyGroup ValuePath + EventType ApertureList DependencyList ), ) ; @@ -56,7 +57,7 @@ declare EventType => where { declare _DependencyTree => where { is_DependencyTree($_) }; -declare DependencySpec => as Tuple[DependencyType, slurpy ArrayRef[Str]]; +declare DependencySpec => as Tuple[DependencyType, slurpy ValuePath]; declare DependencyList => as ArrayRef[DependencySpec]; @@ -68,6 +69,8 @@ declare DependencyTree => # [ \%subtree, \%existence_of, ... ] (Optional[Maybe[HashRef[One]]]) x 4 ]]; +declare ApertureList => as ArrayRef[Tuple[EventType, slurpy ValuePath]]; + ## These were from the dependency group thing which makes no sense until ## we have scoping, so revisit it then #