package Weapon;
use base qw(LazyObject);

# add ammunition to weapon
sub load {
	my ($self, $ammo);
	$self->{_loaded} = $ammo;
};

sub can_fire {
	$self->{_loaded} && $self->{_working};
};