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;