summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-10-31 21:12:58 -0500
committerJesse Luehrs <doy@tozt.net>2009-10-31 21:12:58 -0500
commitc148b68369373a4cedfc74472bd1357753e6c719 (patch)
treecdf88a2d1c69664f776fb50f021ef68d5e8bc779
parenta92ad225e193417d723f264a0f615543c9f00001 (diff)
downloadbot-games-c148b68369373a4cedfc74472bd1357753e6c719.tar.gz
bot-games-c148b68369373a4cedfc74472bd1357753e6c719.zip
oops, why did i remove this
-rw-r--r--lib/Bot/Games.pm10
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;