package Build::VM;
use 5.010;
use Moose;
use strict;
use warnings;

use Build::VM::Guest;

has guest       => (
    isa         => 'Build::VM::Guest',
    lazy        => 1,
    default     => sub {
        Build::VM::Guest->new(
            name    => $_[0]->guest_name,
            memory  => $_[0]->to_kib($_[0]->guest_memory),
            disk_list   => $_[0]->disk_list,
            cdrom_list  => $_[0]->cdrom_list || [[]],
        );
    },
    handles    => {
        get_memory => 'memory',
    }, 
);