profile class assertion

[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Script.pm

diff --git a/lib/Devel/REPL/Script.pm b/lib/Devel/REPL/Script.pm
index 277fc91..bf36136 100644 (file)
--- a/lib/Devel/REPL/Script.pm
+++ b/lib/Devel/REPL/Script.pm
@@ -32,6 +32,8 @@ sub load_profile {
   my ($self, $profile) = @_;
   $profile = "Devel::REPL::Profile::${profile}" unless $profile =~ /::/;
   Class::MOP::load_class($profile);
+  confess "Profile class ${profile} doesn't do 'Devel::REPL::Profile'"
+    unless $profile->does('Devel::REPL::Profile');
   $profile->new->apply_profile($self->_repl);
 }