modules for all response blocks

1 files changed, 22 insertions, 0 deletions

diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm
new file mode 100644
index 0000000..9d87b3a
--- /dev/null
+++ b/lib/WebService/ForecastIo/DataBlock.pm
@@ -0,0 +1,22 @@
+package WebService::ForecastIo::DataBlock;
+use Moose;
+use Moose::Util::TypeConstraints;
+use WebService::ForecastIo::DataPoint;
+
+class_type 'WebService::ForecastIo::DataBlock';
+
+coerce 'WebService::ForecastIo::DataBlock', from 'HashRef',
+    via { WebService::ForecastIo::DataBlock->new($_) };
+
+has [qw(summary icon)] => (
+    is => 'ro',
+    isa => 'Str',
+);
+
+has data => (
+    is => 'ro',
+    isa => 'WebService::ForecastIo::DataPointArray',
+    coerce => 1,
+);
+
+1;