package UnitedStates::agenda;

use strict;
use warnings;

our $heck_why_not;

sub new {
	my $America = shift;
	no strict;
	no warnings;
	bless ($motivations = {
			Afghanistan => 'revenge',
			Iraq        => 'oil',
			Korea       => $while_we_re_at_it,
			@_ }), $America;
}

sub war_machine { print "Goodbye world!\n" }

sub anyone_else { 1 }

sub LOCKNLOAD { war_machine() }

sub DESTROY {
	$heck_why_not++;
	anyone_else();
}