diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-31 21:12:58 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-31 21:12:58 -0500 |
commit | c148b68369373a4cedfc74472bd1357753e6c719 (patch) | |
tree | cdf88a2d1c69664f776fb50f021ef68d5e8bc779 | |
parent | a92ad225e193417d723f264a0f615543c9f00001 (diff) | |
download | bot-games-c148b68369373a4cedfc74472bd1357753e6c719.tar.gz bot-games-c148b68369373a4cedfc74472bd1357753e6c719.zip |
oops, why did i remove this
-rw-r--r-- | lib/Bot/Games.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm index 8e0338d..f306b52 100644 --- a/lib/Bot/Games.pm +++ b/lib/Bot/Games.pm @@ -98,6 +98,16 @@ sub BUILD { $self->_ime; } +sub _check_required { + my $self = shift; + my @attrs = @_; + my $protocol = $self->protocol; + for my $attr (@attrs) { + die "Protocol $protocol requires option $attr to be set" + unless defined $self->$attr; + } +} + sub _build_credentials { my $self = shift; my $protocol = $self->protocol; |