provide and preserve aperture information

[scpubgit/DX.git] / lib / DX / ResolutionSpace.pm

diff --git a/lib/DX/ResolutionSpace.pm b/lib/DX/ResolutionSpace.pm
index 817595f..8342640 100644 (file)
--- a/lib/DX/ResolutionSpace.pm
+++ b/lib/DX/ResolutionSpace.pm
@@ -8,8 +8,18 @@ has proposition => (is => 'ro');
 
 has geometry_depends_on => (is => 'ro', required => 1);
 
+has aperture => (is => 'ro', required => 1);
+
 has members => (is => 'ro', required => 1);
 
+sub for_deparse {
+  my ($self) = @_;
+  [ statement => [
+    [ symbol => 'rspace' ],
+    [ block => $self->members ],
+  ] ];
+}
+
 sub next_resolution {
   my ($self) = @_;
   return undef unless my ($first) = @{$self->members};