use Firearm; my $pistol = Firearm->new; $pistol->magazine->load; $pistol->chamber(round); $pistol->unlock(); my $foot = [x=>0, y=>0, z=>-1]; $pistol->aim($foot); $pistol->fire(); $pistol->lock();