package Storm::Flood;
{
$Storm::Flood::VERSION = '0.19';
}
use Moose;
use MooseX::SemiAffordanceAccessor;
use MooseX::StrictConstructor;
use Storm::Types qw(
Storm
);
has 'storm' => (
is => 'rw',
isa => Storm,
required => 1,
weak_ref => 1,
);
has 'plan' => (
is => 'rw',
);
sub fill {
my ( $self, $class, $plan ) = @_;
# for each attribute, that serializes data
# determine the type
# fill the data
}