use BAST::Service::Instance;
use strict;
use warnings;

my $instance = BAST::Service::Instance->new(filename => $ARGV[0]);

my $bundle = $instance->do_overlay;

print $bundle."\n";

#print join(',',%{BAST::Service::Bundle->__children})."\n";
#print join(',',%{BAST::HasAttributes->__children})."\n";

#bless($bundle, "BAST::HasAttributes");

my %attrs = $bundle->attribute_hash;

print join(',',%attrs)."\n";

foreach ($bundle->provision) {
  $_->do_provision(\%attrs);
}